Let us set some global options for all code chunks in this document.

knitr::opts_chunk$set(
  message = FALSE,    # Disable messages printed by R code chunks
  warning = FALSE,    # Disable warnings printed by R code chunks
  echo = TRUE,        # Show R code within code chunks in output
  include = TRUE,     # Include both R code and its results in output
  eval = TRUE,       # Evaluate R code chunks
  cache = FALSE,       # Enable caching of R code chunks for faster rendering
  fig.align = "center",
  out.width = "100%",
  retina = 2,
  error = TRUE,
  collapse = TRUE
)
rm(list = ls())
set.seed(1982)

1 Preprocessing

Let us now load some required libraries.

# Load required libraries

# inla.upgrade(testing = TRUE)
# remotes::install_github("inlabru-org/inlabru", ref = "devel")
# remotes::install_github("davidbolin/rspde", ref = "devel")
# remotes::install_github("davidbolin/metricgraph", ref = "devel")
# remotes::install_github("davidbolin/ngme2", ref = "devel")

library(INLA)
#inla.setOption(num.threads = 7)
library(inlabru)
library(rSPDE)
library(MetricGraph)
library(ngme2)

library(plotly)
library(dplyr)

library(sf)

library(here)

Function standarize() below is later used to standardize the covariate SpeedLimit.

standardize <- function(x) {return((x - mean(x)) / sd(x))}

To keep track of the changes, we provide summaries of every new created object. Those summaries can be accessed by pressing the Show buttons below


We load the graph object sf_graph (which only contains weights) and the data (already graph-processed).

load(here("Graph_objects/graph_construction_30_04_2024partialtomtomwhichlonglatsf.RData"))
load(here("Data_files/data_day7142128_hour13_with_no_consecutive_zeros_partialtomtom_graph_30_04_2024_processed.RData"))
data_on_graph = data_on_graph %>% 
  dplyr::select(-datetime)
sf_graph$get_edge_lengths() %>% head() %>% capture.output() %>% grep("^Units:", ., value = TRUE)
## [1] "Units: [km]"
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 4017 
##   Degree 2: 1821;  Degree 3: 180;  Degree 4: 1402;  Degree 5: 94;  Degree 6: 367; 
##   Degree 7: 36;  Degree 8: 116;  Degree 12: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 6827 
##   Lengths: 
##       Min: 0.002834658  ; Max: 0.2743201  ; Total: 311.1441 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_6 class_5 class_4 class_0 class_3 class_1 upto1 upto3 upto4 upto5 upto6 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: TRUE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: The graph has no data!
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0
summary(data_on_graph)
##        ID           speed             day        .distance_to_graph
##  Min.   :5701   Min.   : 0.000   Min.   :1.000   Min.   :0.000000  
##  1st Qu.:6571   1st Qu.: 1.609   1st Qu.:2.000   1st Qu.:0.001655  
##  Median :6687   Median :14.484   Median :3.000   Median :0.003552  
##  Mean   :7106   Mean   :15.142   Mean   :2.556   Mean   :0.004470  
##  3rd Qu.:7281   3rd Qu.:24.140   3rd Qu.:4.000   3rd Qu.:0.006153  
##  Max.   :8969   Max.   :99.779   Max.   :4.000   Max.   :0.019991  
##   .edge_number  .distance_on_edge    .group             .coord_x     
##  Min.   :   1   Min.   :0.0000    Length:39575       Min.   :-122.4  
##  1st Qu.:1420   1st Qu.:0.2717    Class :character   1st Qu.:-122.4  
##  Median :2881   Median :0.5140    Mode  :character   Median :-122.4  
##  Mean   :3091   Mean   :0.5080                       Mean   :-122.4  
##  3rd Qu.:4753   3rd Qu.:0.7493                       3rd Qu.:-122.4  
##  Max.   :6826   Max.   :1.0000                       Max.   :-122.4  
##     .coord_y    
##  Min.   :37.77  
##  1st Qu.:37.78  
##  Median :37.79  
##  Mean   :37.79  
##  3rd Qu.:37.79  
##  Max.   :37.81

The following commands remove zero speed observations that are 1m away from the graph, and after that, they remove any speed observations that are 3m away from the graph.

to_remove = data_on_graph %>%
  filter(speed == 0, .distance_to_graph > 0.001) 

data_on_graph = setdiff(data_on_graph, to_remove) %>% 
  filter(.distance_to_graph <= 0.003)
summary(to_remove)
##        ID           speed        day        .distance_to_graph  .edge_number 
##  Min.   :5701   Min.   :0   Min.   :1.000   Min.   :0.001001   Min.   :   1  
##  1st Qu.:6574   1st Qu.:0   1st Qu.:2.000   1st Qu.:0.002757   1st Qu.:1382  
##  Median :6688   Median :0   Median :3.000   Median :0.004562   Median :2788  
##  Mean   :7078   Mean   :0   Mean   :2.556   Mean   :0.005454   Mean   :3031  
##  3rd Qu.:7277   3rd Qu.:0   3rd Qu.:4.000   3rd Qu.:0.007129   3rd Qu.:4715  
##  Max.   :8969   Max.   :0   Max.   :4.000   Max.   :0.019988   Max.   :6812  
##  .distance_on_edge    .group             .coord_x         .coord_y    
##  Min.   :0.0000    Length:8596        Min.   :-122.4   Min.   :37.77  
##  1st Qu.:0.3069    Class :character   1st Qu.:-122.4   1st Qu.:37.78  
##  Median :0.5297    Mode  :character   Median :-122.4   Median :37.79  
##  Mean   :0.5170                       Mean   :-122.4   Mean   :37.79  
##  3rd Qu.:0.7354                       3rd Qu.:-122.4   3rd Qu.:37.79  
##  Max.   :0.9999                       Max.   :-122.4   Max.   :37.81
summary(data_on_graph)
##        ID           speed             day       .distance_to_graph 
##  Min.   :5701   Min.   : 0.000   Min.   :1.00   Min.   :0.0000000  
##  1st Qu.:6565   1st Qu.: 9.656   1st Qu.:2.00   1st Qu.:0.0005833  
##  Median :6683   Median :19.312   Median :3.00   Median :0.0012615  
##  Mean   :7115   Mean   :19.383   Mean   :2.55   Mean   :0.0013510  
##  3rd Qu.:7286   3rd Qu.:27.359   3rd Qu.:4.00   3rd Qu.:0.0021075  
##  Max.   :8969   Max.   :99.779   Max.   :4.00   Max.   :0.0029999  
##   .edge_number  .distance_on_edge    .group             .coord_x     
##  Min.   :   1   Min.   :0.0000    Length:14535       Min.   :-122.4  
##  1st Qu.:1376   1st Qu.:0.2549    Class :character   1st Qu.:-122.4  
##  Median :2956   Median :0.5135    Mode  :character   Median :-122.4  
##  Mean   :3130   Mean   :0.5096                       Mean   :-122.4  
##  3rd Qu.:4803   3rd Qu.:0.7693                       3rd Qu.:-122.4  
##  Max.   :6817   Max.   :0.9999                       Max.   :-122.4  
##     .coord_y    
##  Min.   :37.77  
##  1st Qu.:37.78  
##  Median :37.79  
##  Mean   :37.79  
##  3rd Qu.:37.79  
##  Max.   :37.81

We add data to the graph.

sf_graph$add_observations(data = data_on_graph, 
                          group = "day", 
                          normalized = TRUE, 
                          clear_obs = TRUE)
sf_graph$get_data()
## # A tibble: 14,535 × 9
##       ID speed   day .distance_to_graph .coord_x .coord_y .edge_number
##    <int> <dbl> <dbl>              <dbl>    <dbl>    <dbl>        <dbl>
##  1  6666   0       1           0.00100     -122.     37.8            1
##  2  8941  12.9     1           0.00230     -122.     37.8            4
##  3  8768  24.1     1           0.00233     -122.     37.8            6
##  4  8929  32.2     1           0.00151     -122.     37.8            6
##  5  8965   0       1           0.000647    -122.     37.8            9
##  6  8965  19.3     1           0.00170     -122.     37.8           14
##  7  8954  22.5     1           0.00103     -122.     37.8           14
##  8  8774  19.3     1           0.00279     -122.     37.8           14
##  9  6655  30.6     1           0.00208     -122.     37.8           18
## 10  6677  14.5     1           0.000436    -122.     37.8           20
## # ℹ 14,525 more rows
## # ℹ 2 more variables: .distance_on_edge <dbl>, .group <chr>
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 4017 
##   Degree 2: 1821;  Degree 3: 180;  Degree 4: 1402;  Degree 5: 94;  Degree 6: 367; 
##   Degree 7: 36;  Degree 8: 116;  Degree 12: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 6827 
##   Lengths: 
##       Min: 0.002834658  ; Max: 0.2743201  ; Total: 311.1441 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_6 class_5 class_4 class_0 class_3 class_1 upto1 upto3 upto4 upto5 upto6 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: TRUE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: 
##   Columns:  ID speed day 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

We get the values of the weights at data locations. This essentially gives us covariates from the weights.

sf_graph$edgeweight_to_data(data_loc = TRUE)
sf_graph$get_data()
## # A tibble: 57,112 × 54
##       ID speed   day .distance_to_graph Length FRC   SpeedLimit StreetName     
##    <int> <dbl> <dbl>              <dbl>  <dbl> <chr>      <dbl> <chr>          
##  1    NA  NA      NA           NA       0.0361 5             40 Harrison St    
##  2    NA  NA      NA           NA       0.0361 5             40 Harrison St    
##  3    NA  NA      NA           NA       0.0361 5             40 Harrison St    
##  4  6666   0       1            0.00100 0.0361 5             40 Harrison St    
##  5    NA  NA      NA           NA       0.0361 5             40 Harrison St    
##  6    NA  NA      NA           NA       0.0361 5             40 Harrison St    
##  7    NA  NA      NA           NA       0.0361 5             40 Harrison St    
##  8    NA  NA      NA           NA       0.0361 5             40 Harrison St    
##  9    NA  NA      NA           NA       0.0361 5             40 Harrison St    
## 10  8941  12.9     1            0.00230 0.112  6             35 Rhode Island St
## # ℹ 57,102 more rows
## # ℹ 46 more variables: harmonicAverageSpeed <dbl>, medianSpeed <dbl>,
## #   averageSpeed <dbl>, sampleSize <int>, averageTravelTime <dbl>,
## #   medianTravelTime <dbl>, travelTimeRatio <dbl>, List_Number <int>,
## #   `5percentile` <int>, `10percentile` <int>, `15percentile` <int>,
## #   `20percentile` <int>, `25percentile` <int>, `30percentile` <int>,
## #   `35percentile` <int>, `40percentile` <int>, `45percentile` <int>, …
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 4017 
##   Degree 2: 1821;  Degree 3: 180;  Degree 4: 1402;  Degree 5: 94;  Degree 6: 367; 
##   Degree 7: 36;  Degree 8: 116;  Degree 12: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 6827 
##   Lengths: 
##       Min: 0.002834658  ; Max: 0.2743201  ; Total: 311.1441 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_6 class_5 class_4 class_0 class_3 class_1 upto1 upto3 upto4 upto5 upto6 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: TRUE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: 
##   Columns:  ID speed day Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_6 class_5 class_4 class_0 class_3 class_1 upto1 upto3 upto4 upto5 upto6 density density_per_hour 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

When running sf_graph$edgeweight_to_data(data_loc = TRUE), some NA values are created (because the data is grouped). We remove them below. We also standardize the SpeedLimit covariate.

data = sf_graph$get_data() %>% 
  drop_na(-StreetName) %>% # this drops all rows with at least one NA value but without taking into account StreetName
  mutate(across(c("SpeedLimit"), ~standardize(.))) %>%
  dplyr::select(speed, SpeedLimit)

The code of chunk below was executed only one time.


{r, eval = FALSE}
aux = data |>
  rename(distance_on_edge = .distance_on_edge, edge_number = .edge_number) |>
  as.data.frame() |>
  dplyr::select(edge_number, distance_on_edge, .group)

distmatrixlist = list()

for (i in 1:4) {
  distmatrixlist[[i]] = sf_graph$compute_geodist_PtE(PtE = aux %>% 
                                                       filter(.group == as.character(i)) %>% 
                                                       dplyr::select(-.group),
                                                     normalized = TRUE,
                                                     include_vertices = FALSE)
}


save(distmatrixlist, file = here("Models_output/distmatrixfixed30_04_2024.RData"))

The code of chunk above was executed only one time.


summary(data)
##      speed          SpeedLimit         .group           .edge_number 
##  Min.   : 0.000   Min.   :-2.3744   Length:14535       Min.   :   1  
##  1st Qu.: 9.656   1st Qu.:-0.1006   Class :character   1st Qu.:1376  
##  Median :19.312   Median :-0.1006   Mode  :character   Median :2956  
##  Mean   :19.383   Mean   : 0.0000                      Mean   :3130  
##  3rd Qu.:27.359   3rd Qu.:-0.1006                      3rd Qu.:4803  
##  Max.   :99.779   Max.   : 6.6176                      Max.   :6817  
##  .distance_on_edge    .coord_x         .coord_y    
##  Min.   :0.0000    Min.   :-122.4   Min.   :37.77  
##  1st Qu.:0.2549    1st Qu.:-122.4   1st Qu.:37.78  
##  Median :0.5135    Median :-122.4   Median :37.79  
##  Mean   :0.5096    Mean   :-122.4   Mean   :37.79  
##  3rd Qu.:0.7693    3rd Qu.:-122.4   3rd Qu.:37.79  
##  Max.   :0.9999    Max.   :-122.4   Max.   :37.81

We add the data again but now with the new standardized SpeedLimit covariate.

sf_graph$add_observations(data = data, 
                          group = "day", 
                          normalized = TRUE, 
                          clear_obs = TRUE)
sf_graph$get_data()
## # A tibble: 14,535 × 7
##    speed SpeedLimit .coord_x .coord_y .edge_number .distance_on_edge .group
##    <dbl>      <dbl>    <dbl>    <dbl>        <dbl>             <dbl> <chr> 
##  1   0       -0.101    -122.     37.8            1            0.437  1     
##  2  12.9     -0.617    -122.     37.8            4            0.144  1     
##  3  24.1     -0.617    -122.     37.8            6            0.252  1     
##  4  32.2     -0.617    -122.     37.8            6            0.658  1     
##  5   0       -0.927    -122.     37.8            9            0.601  1     
##  6  19.3     -0.927    -122.     37.8           14            0.0247 1     
##  7  22.5     -0.927    -122.     37.8           14            0.362  1     
##  8  19.3     -0.927    -122.     37.8           14            0.832  1     
##  9  30.6     -0.927    -122.     37.8           18            0.358  1     
## 10  14.5     -0.927    -122.     37.8           20            0.309  1     
## # ℹ 14,525 more rows
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 4017 
##   Degree 2: 1821;  Degree 3: 180;  Degree 4: 1402;  Degree 5: 94;  Degree 6: 367; 
##   Degree 7: 36;  Degree 8: 116;  Degree 12: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 6827 
##   Lengths: 
##       Min: 0.002834658  ; Max: 0.2743201  ; Total: 311.1441 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_6 class_5 class_4 class_0 class_3 class_1 upto1 upto3 upto4 upto5 upto6 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: TRUE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: The graph has no mesh! 
## 
## Data: 
##   Columns:  speed SpeedLimit 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

We build a mesh.

h = 0.05
sf_graph$build_mesh(h = h)
summary(sf_graph)
## A metric graph object with:
## 
## Vertices:
##   Total: 4017 
##   Degree 2: 1821;  Degree 3: 180;  Degree 4: 1402;  Degree 5: 94;  Degree 6: 367; 
##   Degree 7: 36;  Degree 8: 116;  Degree 12: 1; 
##   With incompatible directions:  0 
## 
## Edges: 
##   Total: 6827 
##   Lengths: 
##       Min: 0.002834658  ; Max: 0.2743201  ; Total: 311.1441 
##   Weights: 
##       Columns: Length FRC SpeedLimit StreetName harmonicAverageSpeed medianSpeed averageSpeed sampleSize averageTravelTime medianTravelTime travelTimeRatio List_Number 5percentile 10percentile 15percentile 20percentile 25percentile 30percentile 35percentile 40percentile 45percentile 50percentile 55percentile 60percentile 65percentile 70percentile 75percentile 80percentile 85percentile 90percentile 95percentile road_type class_6 class_5 class_4 class_0 class_3 class_1 upto1 upto3 upto4 upto5 upto6 density density_per_hour 
##   That are circles:  0 
## 
## Graph units: 
##   Vertices unit:  degrees  ; Lengths unit:  km 
## 
## Longitude and Latitude coordinates:  TRUE
##   Which spatial package:  sf 
##   CRS:  EPSG:4326
## 
## Some characteristics of the graph:
##   Connected: TRUE
##   Has loops: FALSE
##   Has multiple edges: TRUE
##   Is a tree: FALSE
##   Distance consistent: TRUE
##   Has Euclidean edges: FALSE
## 
## Computed quantities inside the graph: 
##   Laplacian:  FALSE  ; Geodesic distances:  TRUE 
##   Resistance distances:  FALSE  ; Finite element matrices:  FALSE 
## 
## Mesh: 
##   Max h_e:  0.04999798  ; Min n_e:  0 
## 
## Data: 
##   Columns:  speed SpeedLimit 
##   Groups:  .group 
## 
## Tolerances: 
##   vertex-vertex:  0.001 
##   vertex-edge:  0.001 
##   edge-edge:  0

We get the value of the weights at mesh locations. This will allow us to built matrices B.sigma and B.range below. Again, sf_graph$edgeweight_to_data(mesh = TRUE, add = FALSE, return = TRUE) creates repeated information (because the data is grouped). We fix that by filtering one group. We also standardize the SpeedLimit covariate.

mesh = sf_graph$edgeweight_to_data(mesh = TRUE, 
                                   add = FALSE, 
                                   return = TRUE) %>% 
  filter(.group == 1) %>%
  mutate(across(c("SpeedLimit"), ~standardize(.))) %>%
  dplyr:::select.data.frame(SpeedLimit)
summary(mesh)
##    SpeedLimit     
##  Min.   :-1.9800  
##  1st Qu.:-0.1744  
##  Median :-0.1744  
##  Mean   : 0.0000  
##  3rd Qu.:-0.1744  
##  Max.   : 5.1604

1.1 Stationary model

  • Observe that we are considering replicates.
stat.time.ini <- Sys.time()
################################################################################
################################# STATIONARY MODEL #############################
################################################################################

rspde_model_stat <- rspde.metric_graph(sf_graph,
                                         parameterization = "matern",
                                         nu.upper.bound = 1.5)
str(rspde_model_stat)
## List of 20
##  $ f                   :List of 3
##   ..$ model   : chr "cgeneric"
##   ..$ n       : int 21507
##   ..$ cgeneric:List of 5
##   .. ..$ model: chr "inla_cgeneric_rspde_stat_general_model"
##   .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. ..$ n    : int 21507
##   .. ..$ debug: logi FALSE
##   .. ..$ data :List of 5
##   .. .. ..$ ints      :List of 5
##   .. .. .. ..$ n          : int 21507
##   .. .. .. ..$ debug      : int 0
##   .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. ..$ rspde.order: int 2
##   .. .. ..$ doubles   :List of 11
##   .. .. .. ..$ d                   : num 1
##   .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. ..$ matrices_less       : num [1:94764] 0.0797 0 0 0 0 ...
##   .. .. .. ..$ matrices_full       : num [1:207848] 0.0797 0 0 0 0 ...
##   .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. ..$ start.nu            : num 0.75
##   .. .. ..$ characters:List of 5
##   .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. ..$ matrices  :List of 2
##   .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. ..$ smatrices : list()
##   .. ..- attr(*, "class")= chr "inla.cgeneric"
##  $ cgeneric_type       : chr "general"
##  $ theta.prior.mean    : num [1:2] 0 0.223
##  $ prior.nu            :List of 4
##   ..$ loglocation: num -0.288
##   ..$ mean       : num 0.75
##   ..$ prec       : num 3
##   ..$ logscale   : num 1
##  $ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##  $ start.nu            : num 0.75
##  $ integer.nu          : logi FALSE
##  $ start.theta         : num [1:2] 0 0.223
##  $ stationary          : logi TRUE
##  $ rspde.order         : num 2
##  $ dim                 : num 1
##  $ est_nu              : logi TRUE
##  $ nu.upper.bound      : num 1.5
##  $ prior.nu.dist       : chr "lognormal"
##  $ debug               : logi FALSE
##  $ type.rational.approx: chr "chebfun"
##  $ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##  $ fem_mesh            :List of 5
##   ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. ..@ factors : list()
##   ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. ..@ factors : list()
##   ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. ..@ factors : list()
##   ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. ..@ factors : list()
##   ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. ..@ factors : list()
##  $ parameterization    : chr "matern"
##  $ n.spde              : int 7169
##  - attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
data_rspde_bru_stat <- graph_data_rspde(rspde_model_stat,
                                        repl = ".all",
                                        loc_name = "loc")
str(data_rspde_bru_stat)
## List of 4
##  $ data :List of 8
##   ..$ speed            : num [1:14535] 0 12.9 24.1 32.2 0 ...
##   ..$ SpeedLimit       : num [1:14535] -0.101 -0.617 -0.617 -0.617 -0.927 ...
##   ..$ .coord_x         : num [1:14535] -122 -122 -122 -122 -122 ...
##   ..$ .coord_y         : num [1:14535] 37.8 37.8 37.8 37.8 37.8 ...
##   ..$ .edge_number     : num [1:14535] 1 4 6 6 9 14 14 14 18 20 ...
##   ..$ .distance_on_edge: num [1:14535] 0.437 0.144 0.252 0.658 0.601 ...
##   ..$ .group           : chr [1:14535] "1" "1" "1" "1" ...
##   ..$ loc              : num [1:14535, 1:2] 1 4 6 6 9 14 14 14 18 20 ...
##   ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##  $ index:List of 3
##   ..$ field      : int [1:28676] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ field.group: int [1:28676] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ field.repl : int [1:28676] 1 1 1 1 1 1 1 1 1 1 ...
##   ..- attr(*, "class")= chr [1:2] "inla_rspde_index" "list"
##   ..- attr(*, "rspde.order")= num 0
##   ..- attr(*, "integer_nu")= logi TRUE
##   ..- attr(*, "n.mesh")= int 7169
##   ..- attr(*, "name")= chr "field"
##   ..- attr(*, "n.group")= int 1
##   ..- attr(*, "n.repl")= int 4
##  $ repl : chr [1:14535] "1" "1" "1" "1" ...
##  $ basis:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. ..@ i       : int [1:87210] 0 555 1905 1906 0 1050 1471 1472 1473 1905 ...
##   .. ..@ p       : int [1:86029] 0 4 11 11 11 11 12 13 15 15 ...
##   .. ..@ Dim     : int [1:2] 14535 86028
##   .. ..@ Dimnames:List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : NULL
##   .. ..@ x       : num [1:87210] 0.563 0.0495 0.3595 0.7935 0.437 ...
##   .. ..@ factors : list()
cmp_stat = speed ~ -1 +
  Intercept(1) +
  SpeedLimit +
  field(loc, model = rspde_model_stat,
        replicate = data_rspde_bru_stat[["repl"]])

rspde_fit_stat <-
  bru(cmp_stat,
      data = data_rspde_bru_stat[["data"]],
      family = "T",
      options = list(verbose = FALSE)
  )
str(rspde_fit_stat)
## List of 56
##  $ names.fixed                : chr [1:2] "Intercept" "SpeedLimit"
##  $ summary.fixed              :'data.frame': 2 obs. of  7 variables:
##   ..$ mean      : num [1:2] 20.79 3.41
##   ..$ sd        : num [1:2] 0.333 0.223
##   ..$ 0.025quant: num [1:2] 20.14 2.96
##   ..$ 0.5quant  : num [1:2] 20.79 3.41
##   ..$ 0.975quant: num [1:2] 21.45 3.83
##   ..$ mode      : num [1:2] 20.79 3.41
##   ..$ kld       : num [1:2] 1.72e-08 1.57e-07
##  $ marginals.fixed            :List of 2
##   ..$ Intercept : num [1:43, 1:2] 19.4 19.6 19.8 20 20.1 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ SpeedLimit: num [1:43, 1:2] 2.49 2.6 2.73 2.89 2.96 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ summary.lincomb            :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb          : NULL
##  $ size.lincomb               : NULL
##  $ summary.lincomb.derived    :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb.derived  : NULL
##  $ size.lincomb.derived       : NULL
##  $ mlik                       : num [1:2, 1] -55547 -55543
##   ..- attr(*, "dimnames")=List of 2
##   .. ..$ : chr [1:2] "log marginal-likelihood (integration)" "log marginal-likelihood (Gaussian)"
##   .. ..$ : NULL
##  $ cpo                        :List of 3
##   ..$ cpo    : logi(0) 
##   ..$ pit    : logi(0) 
##   ..$ failure: logi(0) 
##  $ gcpo                       :List of 5
##   ..$ gcpo  : NULL
##   ..$ kld   : NULL
##   ..$ mean  : NULL
##   ..$ sd    : NULL
##   ..$ groups: NULL
##  $ po                         :List of 1
##   ..$ po: num [1:14535] 0.00705 0.03728 0.038 0.0337 0.02467 ...
##  $ waic                       :List of 4
##   ..$ waic       : num 108050
##   ..$ p.eff      : num 2734
##   ..$ local.waic : num [1:14535] 10.96 6.87 6.78 7.38 8.73 ...
##   ..$ local.p.eff: num [1:14535] 0.525 0.145 0.121 0.302 0.661 ...
##  $ residuals                  :List of 1
##   ..$ deviance.residuals: num [1:14535] -2.068 -0.756 0.328 0 -1.331 ...
##  $ model.random               : chr "CGeneric"
##  $ summary.random             :List of 1
##   ..$ field:'data.frame':    86028 obs. of  8 variables:
##   .. ..$ ID        : num [1:86028] 1 2 3 4 5 6 7 8 9 10 ...
##   .. ..$ mean      : num [1:86028] -1.7804 -1.5976 -0.1086 0.0355 -0.0831 ...
##   .. ..$ sd        : num [1:86028] 5.11 4.03 4.82 5.58 6.07 ...
##   .. ..$ 0.025quant: num [1:86028] -11.81 -9.5 -9.57 -10.92 -11.99 ...
##   .. ..$ 0.5quant  : num [1:86028] -1.7774 -1.5959 -0.1073 0.0357 -0.0825 ...
##   .. ..$ 0.975quant: num [1:86028] 8.23 6.3 9.34 10.99 11.82 ...
##   .. ..$ mode      : num [1:86028] -1.7773 -1.5958 -0.1073 0.0357 -0.0825 ...
##   .. ..$ kld       : num [1:86028] 1.15e-10 7.29e-11 7.20e-10 4.05e-10 4.44e-10 ...
##  $ marginals.random           :List of 1
##   ..$ field:List of 86028
##   .. ..$ index.1    : num [1:43, 1:2] -23.7 -20.9 -17.6 -13.7 -11.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.2    : num [1:43, 1:2] -18.9 -16.6 -14.1 -11 -9.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.3    : num [1:43, 1:2] -20.86 -18.18 -15.09 -11.35 -9.57 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.4    : num [1:43, 1:2] -24 -20.9 -17.3 -13 -10.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.5    : num [1:43, 1:2] -26.2 -22.8 -18.9 -14.2 -12 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.6    : num [1:43, 1:2] -26.4 -23.2 -19.5 -15.1 -12.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.7    : num [1:43, 1:2] -19.15 -16.6 -13.64 -10.06 -8.35 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.8    : num [1:43, 1:2] -17.17 -14.92 -12.32 -9.17 -7.66 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.9    : num [1:43, 1:2] -24.4 -21.3 -17.7 -13.3 -11.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.10   : num [1:43, 1:2] -24.1 -21 -17.4 -13.1 -11 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.11   : num [1:43, 1:2] -32.3 -28.1 -23.3 -17.4 -14.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.12   : num [1:43, 1:2] -36.5 -31.7 -26.3 -19.6 -16.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.13   : num [1:43, 1:2] -22.3 -19.6 -16.4 -12.5 -10.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.14   : num [1:43, 1:2] -28.6 -25.3 -21.5 -16.9 -14.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.15   : num [1:43, 1:2] -21.6 -18.84 -15.66 -11.81 -9.96 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.16   : num [1:43, 1:2] -24.8 -21.6 -17.9 -13.4 -11.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.17   : num [1:43, 1:2] -18.63 -16.13 -13.23 -9.71 -8.03 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.18   : num [1:43, 1:2] -23.3 -20.3 -16.7 -12.5 -10.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.19   : num [1:43, 1:2] -22.37 -19.4 -15.96 -11.78 -9.78 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.20   : num [1:43, 1:2] -29.5 -25.7 -21.2 -15.9 -13.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.21   : num [1:43, 1:2] -37 -32.2 -26.6 -19.9 -16.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.22   : num [1:43, 1:2] -29 -25.2 -20.8 -15.5 -12.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.23   : num [1:43, 1:2] -29.7 -25.9 -21.4 -16.1 -13.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.24   : num [1:43, 1:2] -29.8 -25.9 -21.5 -16.1 -13.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.25   : num [1:43, 1:2] -27.3 -23.3 -18.7 -13 -10.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.26   : num [1:43, 1:2] -22.39 -19.4 -15.94 -11.74 -9.73 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.27   : num [1:43, 1:2] -28.9 -25.2 -20.9 -15.7 -13.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.28   : num [1:43, 1:2] -24.4 -21.3 -17.6 -13.2 -11.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.29   : num [1:43, 1:2] -34.3 -30.5 -26.1 -20.8 -18.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.30   : num [1:43, 1:2] -19.34 -16.31 -12.81 -8.55 -6.51 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.31   : num [1:43, 1:2] -24.9 -21.8 -18.1 -13.7 -11.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.32   : num [1:43, 1:2] -26.7 -23.2 -19.3 -14.5 -12.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.33   : num [1:43, 1:2] -36.9 -32.2 -26.8 -20.2 -17 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.34   : num [1:43, 1:2] -24.8 -21.8 -18.3 -14 -11.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.35   : num [1:43, 1:2] -39.7 -34.6 -28.7 -21.6 -18.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.36   : num [1:43, 1:2] -29.5 -25.7 -21.3 -16 -13.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.37   : num [1:43, 1:2] -40.2 -35.1 -29.1 -21.9 -18.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.38   : num [1:43, 1:2] -39.9 -34.8 -28.9 -21.7 -18.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.39   : num [1:43, 1:2] -37.1 -32.3 -26.9 -20.2 -17.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.40   : num [1:43, 1:2] -30.1 -26.2 -21.8 -16.4 -13.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.41   : num [1:43, 1:2] -37.2 -32.5 -27.1 -20.6 -17.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.42   : num [1:43, 1:2] -29.7 -25.9 -21.4 -16.1 -13.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.43   : num [1:43, 1:2] -40.1 -35 -29.2 -22 -18.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.44   : num [1:43, 1:2] -29.1 -25.3 -20.9 -15.6 -13 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.45   : num [1:43, 1:2] -24.7 -21.5 -17.9 -13.5 -11.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.46   : num [1:43, 1:2] -35.1 -31.5 -27.3 -22.2 -19.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.47   : num [1:43, 1:2] -28.6 -25.3 -21.5 -16.9 -14.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.48   : num [1:43, 1:2] -23.89 -20.59 -16.77 -12.15 -9.93 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.49   : num [1:43, 1:2] -24.2 -20.4 -16.1 -10.8 -8.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.50   : num [1:43, 1:2] -24.6 -21.3 -17.4 -12.7 -10.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.51   : num [1:43, 1:2] -19.3 -16.86 -14.03 -10.6 -8.95 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.52   : num [1:43, 1:2] -34.7 -31.1 -26.9 -21.8 -19.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.53   : num [1:43, 1:2] -26.6 -23.7 -20.3 -16.2 -14.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.54   : num [1:43, 1:2] -26 -23 -19.6 -15.4 -13.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.55   : num [1:43, 1:2] -29.7 -26 -21.7 -16.5 -14 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.56   : num [1:43, 1:2] -26.2 -23.2 -19.7 -15.5 -13.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.57   : num [1:43, 1:2] -31 -27.5 -23.6 -18.8 -16.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.58   : num [1:43, 1:2] -28.4 -25.1 -21.2 -16.5 -14.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.59   : num [1:43, 1:2] -21.04 -18.31 -15.15 -11.35 -9.54 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.60   : num [1:43, 1:2] -25.2 -22.1 -18.5 -14.1 -12.1 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.61   : num [1:43, 1:2] -25.8 -22.4 -18.4 -13.6 -11.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.62   : num [1:43, 1:2] -18.38 -15.74 -12.68 -8.99 -7.23 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.63   : num [1:43, 1:2] -24.7 -21.6 -17.9 -13.6 -11.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.64   : num [1:43, 1:2] -29.6 -25.9 -21.6 -16.4 -13.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.65   : num [1:43, 1:2] -26.8 -23.5 -19.7 -15 -12.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.66   : num [1:43, 1:2] -25.3 -21.9 -17.8 -13 -10.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.67   : num [1:43, 1:2] -13.51 -11.26 -8.66 -5.51 -4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.68   : num [1:43, 1:2] -23.6 -21 -18.1 -14.5 -12.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.69   : num [1:43, 1:2] -27.9 -24.5 -20.6 -15.9 -13.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.70   : num [1:43, 1:2] -21.38 -18.45 -15.07 -10.97 -9.01 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.71   : num [1:43, 1:2] -22.3 -19.5 -16.2 -12.2 -10.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.72   : num [1:43, 1:2] -18.28 -15.88 -13.1 -9.74 -8.12 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.73   : num [1:43, 1:2] -30.8 -26.1 -20.6 -14.1 -10.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.74   : num [1:43, 1:2] -11.749 -8.94 -5.686 -1.734 0.161 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.75   : num [1:43, 1:2] -33.8 -29.8 -25.1 -19.4 -16.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.76   : num [1:43, 1:2] -40 -35.6 -30.5 -24.3 -21.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.77   : num [1:43, 1:2] -34.3 -29.9 -24.7 -18.4 -15.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.78   : num [1:43, 1:2] -23.8 -20.7 -17.2 -12.9 -10.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.79   : num [1:43, 1:2] -26.8 -23.9 -20.5 -16.3 -14.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.80   : num [1:43, 1:2] -22.4 -19.9 -17 -13.5 -11.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.81   : num [1:43, 1:2] -21.9 -19.5 -16.8 -13.4 -11.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.82   : num [1:43, 1:2] -19.72 -17.06 -13.99 -10.26 -8.48 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.83   : num [1:43, 1:2] -25.2 -22.5 -19.3 -15.5 -13.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.84   : num [1:43, 1:2] -23.3 -20.3 -16.9 -12.8 -10.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.85   : num [1:43, 1:2] -27.1 -23.6 -19.6 -14.8 -12.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.86   : num [1:43, 1:2] -22.7 -19.8 -16.4 -12.4 -10.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.87   : num [1:43, 1:2] -27.3 -23.8 -19.7 -14.9 -12.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.88   : num [1:43, 1:2] -20.66 -18.13 -15.19 -11.64 -9.93 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.89   : num [1:43, 1:2] -28.5 -24.5 -20 -14.4 -11.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.90   : num [1:43, 1:2] -20.6 -18.1 -15.2 -11.7 -10 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.91   : num [1:43, 1:2] -25.9 -22.8 -19.2 -14.9 -12.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.92   : num [1:43, 1:2] -26.5 -23.4 -19.9 -15.5 -13.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.93   : num [1:43, 1:2] -32.1 -28.2 -23.8 -18.4 -15.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.94   : num [1:43, 1:2] -37.5 -32.5 -26.8 -19.9 -16.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.95   : num [1:43, 1:2] -25.6 -22.2 -18.2 -13.5 -11.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.96   : num [1:43, 1:2] -36.7 -31.8 -26.1 -19.3 -16 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.97   : num [1:43, 1:2] -30.8 -26.5 -21.6 -15.7 -12.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.98   : num [1:43, 1:2] -24.3 -21.2 -17.6 -13.2 -11.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.99   : num [1:43, 1:2] -24.6 -21.4 -17.8 -13.5 -11.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. .. [list output truncated]
##  $ size.random                :List of 1
##   ..$ :List of 5
##   .. ..$ n     : num 21507
##   .. ..$ N     : num 21507
##   .. ..$ Ntotal: num 86028
##   .. ..$ ngroup: num 1
##   .. ..$ nrep  : num 4
##  $ summary.linear.predictor   :'data.frame': 100565 obs. of  7 variables:
##   ..$ mean      : num [1:100565] 17.8 14.95 23.3 27.68 9.56 ...
##   ..$ sd        : num [1:100565] 3.61 5.91 5.87 6.45 6.17 ...
##   ..$ 0.025quant: num [1:100565] 10.72 3.37 11.79 15.04 -2.54 ...
##   ..$ 0.5quant  : num [1:100565] 17.8 14.95 23.3 27.68 9.57 ...
##   ..$ 0.975quant: num [1:100565] 24.9 26.5 34.8 40.3 21.7 ...
##   ..$ mode      : num [1:100565] 17.8 14.95 23.3 27.68 9.57 ...
##   ..$ kld       : num [1:100565] 4.92e-11 3.11e-11 3.40e-11 3.87e-11 7.49e-11 ...
##  $ marginals.linear.predictor : NULL
##  $ summary.fitted.values      :'data.frame': 100565 obs. of  6 variables:
##   ..$ mean      : num [1:100565] 17.8 14.95 23.3 27.68 9.56 ...
##   ..$ sd        : num [1:100565] 3.61 5.91 5.87 6.45 6.17 ...
##   ..$ 0.025quant: num [1:100565] 10.72 3.37 11.79 15.04 -2.54 ...
##   ..$ 0.5quant  : num [1:100565] 17.8 14.95 23.3 27.68 9.57 ...
##   ..$ 0.975quant: num [1:100565] 24.9 26.5 34.8 40.3 21.7 ...
##   ..$ mode      : num [1:100565] 17.8 14.95 23.3 27.68 9.57 ...
##  $ marginals.fitted.values    : NULL
##  $ size.linear.predictor      :List of 5
##   ..$ n     : num 86030
##   ..$ N     : num 86030
##   ..$ Ntotal: num 100565
##   ..$ ngroup: num 1
##   ..$ nrep  : num 2
##  $ summary.hyperpar           :'data.frame': 5 obs. of  6 variables:
##   ..$ mean      : num [1:5] 0.0124 13.678 2.9634 -1.4288 -2.0709
##   ..$ sd        : num [1:5] 0.000226 1.915812 0.05298 0.151798 0.159793
##   ..$ 0.025quant: num [1:5] 0.012 11.024 2.862 -1.742 -2.405
##   ..$ 0.5quant  : num [1:5] 0.0124 13.3398 2.9625 -1.4241 -2.0644
##   ..$ 0.975quant: num [1:5] 0.0129 18.3921 3.0707 -1.1446 -1.7771
##   ..$ mode      : num [1:5] 0.0123 12.303 2.9581 -1.4026 -2.0342
##  $ marginals.hyperpar         :List of 5
##   ..$ precision for the student-t observations: num [1:43, 1:2] 0.0117 0.0118 0.0119 0.012 0.012 ...
##   .. ..- attr(*, "hyperid")= chr "100001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ degrees of freedom for student-t        : num [1:43, 1:2] 9.39 9.74 10.16 10.74 11.02 ...
##   .. ..- attr(*, "hyperid")= chr "100002|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                        : num [1:43, 1:2] 2.75 2.77 2.81 2.84 2.86 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                        : num [1:43, 1:2] -2.13 -2.04 -1.93 -1.8 -1.74 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta3 for field                        : num [1:43, 1:2] -2.82 -2.72 -2.61 -2.47 -2.4 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ internal.summary.hyperpar  :'data.frame': 5 obs. of  6 variables:
##   ..$ mean      : num [1:5] -4.39 2.45 2.96 -1.43 -2.07
##   ..$ sd        : num [1:5] 0.0181 0.1548 0.053 0.1518 0.1597
##   ..$ 0.025quant: num [1:5] -4.42 2.2 2.86 -1.74 -2.4
##   ..$ 0.5quant  : num [1:5] -4.39 2.43 2.96 -1.42 -2.06
##   ..$ 0.975quant: num [1:5] -4.35 2.8 3.07 -1.14 -1.78
##   ..$ mode      : num [1:5] -4.4 2.35 2.96 -1.4 -2.04
##  $ internal.marginals.hyperpar:List of 5
##   ..$ log precision for the student-t observations: num [1:43, 1:2] -4.45 -4.44 -4.43 -4.42 -4.42 ...
##   .. ..- attr(*, "hyperid")= chr "100001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ dof_intern for student-t                    : num [1:43, 1:2] 2 2.05 2.1 2.17 2.2 ...
##   .. ..- attr(*, "hyperid")= chr "100002|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                            : num [1:43, 1:2] 2.75 2.77 2.81 2.84 2.86 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                            : num [1:43, 1:2] -2.13 -2.04 -1.93 -1.8 -1.74 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta3 for field                            : num [1:43, 1:2] -2.82 -2.72 -2.61 -2.47 -2.4 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ offset.linear.predictor    : num [1:100565] 0 0 0 0 0 0 0 0 0 0 ...
##  $ model.spde2.blc            : NULL
##  $ summary.spde2.blc          : list()
##  $ marginals.spde2.blc        : NULL
##  $ size.spde2.blc             : NULL
##  $ model.spde3.blc            : NULL
##  $ summary.spde3.blc          : list()
##  $ marginals.spde3.blc        : NULL
##  $ size.spde3.blc             : NULL
##  $ logfile                    : chr [1:5884] "[PANUA] PARDISO License is expired." "[PANUA] Please obtain a new PARDISO license at https://www.panua.ch/products/pardiso" "        Read ntt 24 1 with max.threads 24" "        Found num.threads = 24:1 max_threads = 24" ...
##  $ misc                       :List of 22
##   ..$ cov.intern                        : num [1:5, 1:5] 2.78e-04 2.54e-04 5.95e-06 -4.37e-04 -1.50e-04 ...
##   ..$ cor.intern                        : num [1:5, 1:5] 1 0.11228 0.00648 -0.17022 -0.05694 ...
##   ..$ cov.intern.eigenvalues            : num [1:5] 0.000188 0.00037 0.017853 0.025913 0.025913
##   ..$ cov.intern.eigenvectors           : num [1:5, 1:5] 0.756 -0.00871 -0.61496 0.18612 -0.1248 ...
##   ..$ reordering                        : int [1:86030] 57116 57117 53420 53432 53413 53635 53616 53617 64381 64380 ...
##   ..$ theta.tags                        : chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   ..$ log.posterior.mode                : num -55534
##   ..$ stdev.corr.negative               : num [1:5] 0.579 1.314 0.577 0.847 1.18
##   ..$ stdev.corr.positive               : num [1:5] 1.727 0.761 1.733 1.18 0.847
##   ..$ to.theta                          :List of 5
##   .. ..$ log precision for the student-t observations:function (x)  
##   .. ..$ dof_intern for student-t                    :function (x)  
##   .. ..$ Theta1 for field                            :function (x)  
##   .. ..$ Theta2 for field                            :function (x)  
##   .. ..$ Theta3 for field                            :function (x)  
##   ..$ from.theta                        :List of 5
##   .. ..$ log precision for the student-t observations:function (x)  
##   .. ..$ dof_intern for student-t                    :function (x)  
##   .. ..$ Theta1 for field                            :function (x)  
##   .. ..$ Theta2 for field                            :function (x)  
##   .. ..$ Theta3 for field                            :function (x)  
##   ..$ mode.status                       : num 0
##   ..$ lincomb.derived.correlation.matrix: NULL
##   ..$ lincomb.derived.covariance.matrix : NULL
##   ..$ opt.directions                    : num [1:5, 1:5] -0.56172 0.7745 -0.00718 -0.1741 -0.23292 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : chr [1:5] "theta:1" "theta:2" "theta:3" "theta:4" ...
##   .. .. ..$ : chr [1:5] "dir:1" "dir:2" "dir:3" "dir:4" ...
##   ..$ configs                           :List of 17
##   .. ..$ .preopt          : logi TRUE
##   .. ..$ lite             : logi FALSE
##   .. ..$ mpred            : int 14535
##   .. ..$ npred            : int 86030
##   .. ..$ mnpred           : int 100565
##   .. ..$ Npred            : int 14535
##   .. ..$ n                : int 86030
##   .. ..$ nz               : int 656168
##   .. ..$ prior_nz         : int 542050
##   .. ..$ ntheta           : int 5
##   .. ..$ nconfig          : int 27
##   .. ..$ offsets          : num [1:100565] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ contents         :List of 3
##   .. .. ..$ tag   : chr [1:5] "APredictor" "Predictor" "field" "Intercept" ...
##   .. .. ..$ start : int [1:5] 1 14536 100566 186594 186595
##   .. .. ..$ length: int [1:5] 14535 86030 86028 1 1
##   .. ..$ A                :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:86030] 2 3 4 5 6 7 8 9 10 11 ...
##   .. .. .. ..@ j       : int [1:86030] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:86030] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ pA               :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:116238] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:116238] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 14535 86030
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:116238] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ config           :List of 27
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.41 2.41 2.89 -1.32 -1.75
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.22
##   .. .. .. ..$ log.posterior.orig: num -0.627
##   .. .. .. ..$ mean              : num [1:86030] -1.7621 -1.5153 -0.0679 0.0522 -0.0517 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.7535 -1.5069 -0.0664 0.0539 -0.0506 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0555 -0.015 0.1287 0.1298 -0.0463 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 24.63 7.12 15.17 20.77 15.8 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0438 -0.0202 0.0925 0.1298 -0.0463 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2035 -0.0316 0.0136 0.0681 -0.1333 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.77 14.92 23.25 27.66 9.51 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.7671 3.479 -1.7535 -1.5069 -0.0664 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.37 2.41 2.86 -1.31 -1.76
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -11.6
##   .. .. .. ..$ log.posterior.orig: num -8.37
##   .. .. .. ..$ mean              : num [1:86030] -1.6395 -1.4706 -0.0726 0.0498 -0.0548 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.631 -1.4624 -0.0711 0.0516 -0.0536 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0595 -0.0167 0.1378 0.1411 -0.0504 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 22.93 6.68 14.14 19.3 14.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0475 -0.022 0.1003 0.1411 -0.0504 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.211 -0.0334 0.015 0.0728 -0.1411 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.9 14.95 23.2 27.54 9.71 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.7538 3.5024 -1.631 -1.4624 -0.0711 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.43 2.41 2.9 -1.33 -1.75
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.4
##   .. .. .. ..$ log.posterior.orig: num -2.13
##   .. .. .. ..$ mean              : num [1:86030] -1.7964 -1.5263 -0.0664 0.0527 -0.0507 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.7877 -1.5179 -0.0649 0.0545 -0.0496 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0543 -0.0145 0.1261 0.1267 -0.0452 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 25.17 7.26 15.5 21.22 16.13 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0428 -0.0197 0.0903 0.1267 -0.0452 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.201 -0.031 0.0132 0.0666 -0.1309 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.73 14.91 23.26 27.69 9.45 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.7712 3.4711 -1.7877 -1.5179 -0.0649 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.44 2.41 2.87 -1.32 -1.75
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.6
##   .. .. .. ..$ log.posterior.orig: num -3.33
##   .. .. .. ..$ mean              : num [1:86030] -1.6079 -1.4694 -0.0724 0.0487 -0.0541 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.5996 -1.4613 -0.071 0.0505 -0.053 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0578 -0.0163 0.1334 0.1375 -0.0491 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 23.54 6.83 14.5 19.73 15.04 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0463 -0.0215 0.0979 0.1375 -0.0491 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2008 -0.0319 0.0149 0.07 -0.1345 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.92 14.99 23.14 27.41 9.87 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.743 3.527 -1.6 -1.461 -0.071 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.37 2.41 2.94 -1.33 -1.74
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -7.73
##   .. .. .. ..$ log.posterior.orig: num -4.46
##   .. .. .. ..$ mean              : num [1:86030] -2.0346 -1.5858 -0.0599 0.0577 -0.0474 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -2.0254 -1.577 -0.0585 0.0595 -0.0463 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0518 -0.0129 0.1214 0.1177 -0.0419 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 26.62 7.65 16.4 22.67 17.2 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0398 -0.0183 0.084 0.1177 -0.0419 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2082 -0.031 0.0116 0.0647 -0.1308 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.51 14.81 23.41 28.07 8.88 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.8084 3.3937 -2.0254 -1.577 -0.0585 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.4 2.96 2.85 -1.45 -1.69
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -9.01
##   .. .. .. ..$ log.posterior.orig: num -5.74
##   .. .. .. ..$ mean              : num [1:86030] -1.9985 -1.5911 -0.0384 0.0537 -0.0288 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.9933 -1.5861 -0.0378 0.0545 -0.0283 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0564 -0.0132 0.1297 0.1279 -0.0446 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 23.5 6.1 14.1 18.9 13.9 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0442 -0.0195 0.0931 0.1279 -0.0446 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2065 -0.0307 0.0148 0.0661 -0.1277 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.38 15.04 23.09 27.45 9.54 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.751 3.5854 -1.9933 -1.5861 -0.0378 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.42 2.23 2.91 -1.28 -1.77
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.54
##   .. .. .. ..$ log.posterior.orig: num -2.27
##   .. .. .. ..$ mean              : num [1:86030] -1.6462 -1.4615 -0.0809 0.0489 -0.062 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.6362 -1.4518 -0.079 0.0512 -0.0605 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0554 -0.0157 0.129 0.1312 -0.0471 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 24.9 7.45 15.47 21.32 16.38 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0439 -0.0206 0.0929 0.1312 -0.0471 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2021 -0.0321 0.0132 0.0691 -0.1359 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.94 14.88 23.31 27.75 9.49 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.773 3.441 -1.636 -1.452 -0.079 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.41 2.33 2.83 -1.72 -1.98
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -11
##   .. .. .. ..$ log.posterior.orig: num -7.71
##   .. .. .. ..$ mean              : num [1:86030] -2.1109 -1.5517 -0.0194 0.0583 -0.0142 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -2.1031 -1.5437 -0.0187 0.0592 -0.0138 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0518 -0.0111 0.1205 0.1111 -0.0371 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 24 5.11 13.53 18.72 13.06 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0401 -0.0162 0.084 0.1111 -0.0371 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.203 -0.0339 0.0189 0.072 -0.1317 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 15.02 22.93 27.5 9.18 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.6524 3.8866 -2.1031 -1.5437 -0.0187 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.42 2.46 2.94 -1.04 -1.58
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.25
##   .. .. .. ..$ log.posterior.orig: num -1.98
##   .. .. .. ..$ mean              : num [1:86030] -1.40346 -1.39569 -0.13271 0.00714 -0.10271 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.39508 -1.38767 -0.13068 0.00961 -0.10102 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0625 -0.0196 0.1438 0.1556 -0.0571 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 23.68 8.28 15.63 20.81 16.55 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0508 -0.0249 0.1078 0.1556 -0.0571 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2044 -0.0314 0.0111 0.0678 -0.1366 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.99 14.95 23.4 27.61 9.93 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.849 3.189 -1.395 -1.388 -0.131 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.41 2.34 2.79 -1.46 -1.47
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -8.47
##   .. .. .. ..$ log.posterior.orig: num -5.21
##   .. .. .. ..$ mean              : num [1:86030] -1.611 -1.2513 -0.0235 0.0481 -0.0182 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.6048 -1.2453 -0.0228 0.049 -0.0177 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0641 -0.0174 0.1464 0.1499 -0.0517 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 20.47 5.34 12.2 15.43 11.21 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0524 -0.0226 0.1102 0.1499 -0.0517 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2028 -0.0319 0.015 0.0692 -0.1327 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.75 14.91 23.17 27.65 9.36 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.7135 3.6495 -1.6048 -1.2453 -0.0228 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.41 2.5 3.03 -1.13 -2.14
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -4.34
##   .. .. .. ..$ log.posterior.orig: num -1.08
##   .. .. .. ..$ mean              : num [1:86030] -1.579 -1.689 -0.218 -0.03 -0.168 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.5683 -1.6787 -0.2155 -0.0265 -0.1651 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.054 -0.0156 0.1258 0.1301 -0.048 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 26.55 8.72 17.08 25.79 20.65 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0422 -0.0209 0.0897 0.1301 -0.048 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2057 -0.0331 0.0119 0.0694 -0.1383 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 18 15.1 23.3 27.5 10.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.829 3.267 -1.568 -1.679 -0.215 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.41 2.32 2.9 -1.25 -1.55
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.86
##   .. .. .. ..$ log.posterior.orig: num -3.59
##   .. .. .. ..$ mean              : num [1:86030] -1.6498 -1.3822 -0.0623 0.048 -0.0489 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.6414 -1.3742 -0.0609 0.0498 -0.0478 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0587 -0.0168 0.1358 0.1401 -0.0502 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 23.89 7.33 15.02 19.75 15.14 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.047 -0.0219 0.0994 0.1401 -0.0502 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2039 -0.0309 0.0117 0.0664 -0.1331 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.78 14.82 23.39 27.89 9.28 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.8034 3.3619 -1.6414 -1.3742 -0.0609 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.4 2.34 2.96 -1.4 -2.03
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -3.27
##   .. .. .. ..$ log.posterior.orig: num 0
##   .. .. .. ..$ mean              : num [1:86030] -1.9858 -1.6631 -0.0785 0.0586 -0.0598 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.9751 -1.6527 -0.0767 0.0608 -0.0584 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0497 -0.0124 0.1169 0.1126 -0.0402 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 27.09 7.48 16.42 23.85 18.13 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.038 -0.0175 0.0803 0.1126 -0.0402 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2044 -0.0322 0.0136 0.0678 -0.1331 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.7 14.9 23.27 27.81 9.24 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.7655 3.5065 -1.9751 -1.6527 -0.0767 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.4 2.72 2.98 -1.17 -1.82
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.02
##   .. .. .. ..$ log.posterior.orig: num -1.75
##   .. .. .. ..$ mean              : num [1:86030] -1.8955 -1.6934 -0.1224 0.0264 -0.0944 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.8873 -1.6855 -0.1208 0.0285 -0.0931 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0533 -0.014 0.1239 0.125 -0.0455 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 26.88 8.54 17.21 24.41 19.15 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0412 -0.0199 0.0873 0.125 -0.0455 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.207 -0.0306 0.011 0.0645 -0.1308 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.58 14.95 23.39 27.73 9.54 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.847 3.254 -1.887 -1.685 -0.121 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.39 2.59 2.83 -1.62 -1.7
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -7.92
##   .. .. .. ..$ log.posterior.orig: num -4.65
##   .. .. .. ..$ mean              : num [1:86030] -2.1439 -1.5113 -0.0162 0.0525 -0.0127 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -2.1377 -1.5051 -0.0156 0.0532 -0.0123 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0538 -0.0113 0.1244 0.1163 -0.039 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 23.69 5.34 13.63 18.15 12.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0418 -0.0171 0.0876 0.1163 -0.039 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2052 -0.0317 0.0157 0.0664 -0.1263 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.32 14.96 23.09 27.71 8.95 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.7089 3.7495 -2.1377 -1.5051 -0.0156 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.43 2.39 2.97 -1.09 -1.86
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.1
##   .. .. .. ..$ log.posterior.orig: num -1.83
##   .. .. .. ..$ mean              : num [1:86030] -1.49051 -1.54156 -0.17083 -0.00467 -0.13136 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.4801 -1.5315 -0.1682 -0.0015 -0.1291 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0562 -0.0169 0.1304 0.1371 -0.0504 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 25.79 8.67 16.74 23.84 18.99 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0447 -0.022 0.0949 0.1371 -0.0504 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2017 -0.0321 0.0116 0.0684 -0.1363 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 18.04 15 23.36 27.55 9.99 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.829 3.254 -1.48 -1.531 -0.168 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.43 2.26 2.82 -1.54 -1.74
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -8.81
##   .. .. .. ..$ log.posterior.orig: num -5.54
##   .. .. .. ..$ mean              : num [1:86030] -1.8316 -1.4266 -0.0282 0.0568 -0.0212 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.8238 -1.4189 -0.0273 0.0579 -0.0205 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0556 -0.0139 0.1285 0.1255 -0.0431 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 23.17 5.68 13.54 18.11 13.07 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0441 -0.0188 0.0927 0.1255 -0.0431 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1999 -0.0325 0.0164 0.0701 -0.1319 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.76 14.95 23.08 27.59 9.32 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.6875 3.7376 -1.8238 -1.4189 -0.0273 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.43 2.65 2.84 -1.31 -1.52
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -7.28
##   .. .. .. ..$ log.posterior.orig: num -4.01
##   .. .. .. ..$ mean              : num [1:86030] -1.6154 -1.3841 -0.0491 0.0468 -0.0372 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.6094 -1.3783 -0.0482 0.048 -0.0365 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0626 -0.0176 0.1431 0.1499 -0.0532 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 21.83 6.34 13.51 17.44 13.16 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0509 -0.0232 0.1074 0.1499 -0.0532 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2027 -0.0305 0.0139 0.0672 -0.1309 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.7 14.98 23.17 27.45 9.76 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.7626 3.4896 -1.6094 -1.3783 -0.0482 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.42 2.67 2.9 -1.47 -2
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.92
##   .. .. .. ..$ log.posterior.orig: num -2.65
##   .. .. .. ..$ mean              : num [1:86030] -1.9827 -1.6916 -0.0615 0.0583 -0.0452 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.975 -1.684 -0.0604 0.0597 -0.0443 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0523 -0.0125 0.1212 0.1183 -0.0417 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 25.22 6.55 15.07 21.41 16.01 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0405 -0.0182 0.0853 0.1183 -0.0417 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2031 -0.0317 0.0158 0.0686 -0.1306 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 15.1 23 27.4 9.7 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.7278 3.6275 -1.975 -1.684 -0.0604 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.38 2.39 2.98 -1.09 -1.86
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -5.59
##   .. .. .. ..$ log.posterior.orig: num -2.32
##   .. .. .. ..$ mean              : num [1:86030] -1.60927 -1.57214 -0.16727 -0.00116 -0.13007 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.5985 -1.56177 -0.1646 0.00208 -0.12783 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0558 -0.0163 0.1302 0.1345 -0.0494 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 26.08 8.77 16.94 24.26 19.32 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0439 -0.0216 0.0931 0.1345 -0.0494 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2094 -0.0329 0.0108 0.0689 -0.1396 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.94 14.93 23.45 27.77 9.67 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.852 3.205 -1.598 -1.562 -0.165 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.37 2.26 2.83 -1.54 -1.73
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -9.44
##   .. .. .. ..$ log.posterior.orig: num -6.17
##   .. .. .. ..$ mean              : num [1:86030] -1.9459 -1.4505 -0.0262 0.0587 -0.0203 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.9378 -1.4425 -0.0253 0.0599 -0.0197 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.055 -0.0133 0.1279 0.1226 -0.0421 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 23.53 5.76 13.75 18.51 13.35 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0431 -0.0184 0.0906 0.1226 -0.0421 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2074 -0.0333 0.0158 0.0704 -0.1346 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.66 14.88 23.18 27.82 8.99 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.7084 3.6974 -1.9378 -1.4425 -0.0253 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.37 2.65 2.85 -1.32 -1.52
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -7.68
##   .. .. .. ..$ log.posterior.orig: num -4.41
##   .. .. .. ..$ mean              : num [1:86030] -1.7202 -1.41 -0.0468 0.049 -0.0362 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.7141 -1.4041 -0.0458 0.0502 -0.0355 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0622 -0.017 0.1429 0.1472 -0.0522 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 22.08 6.42 13.67 17.73 13.38 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.05 -0.0228 0.1055 0.1472 -0.0522 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2109 -0.0312 0.0132 0.0677 -0.134 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.59 14.91 23.27 27.68 9.45 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.7844 3.4434 -1.7141 -1.4041 -0.0458 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.37 2.66 2.91 -1.47 -2
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -7.33
##   .. .. .. ..$ log.posterior.orig: num -4.07
##   .. .. .. ..$ mean              : num [1:86030] -2.1144 -1.7243 -0.0591 0.0609 -0.0442 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -2.1064 -1.7166 -0.058 0.0623 -0.0433 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.052 -0.012 0.1213 0.1161 -0.0409 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 25.48 6.62 15.24 21.8 16.29 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0397 -0.0179 0.0837 0.1161 -0.0409 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2113 -0.0325 0.0152 0.0691 -0.1337 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.5 14.99 23.14 27.59 9.38 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.749 3.584 -2.106 -1.717 -0.058 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.41 2.32 2.85 -1.23 -1.56
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -7.53
##   .. .. .. ..$ log.posterior.orig: num -4.26
##   .. .. .. ..$ mean              : num [1:86030] -1.4141 -1.3098 -0.0706 0.0426 -0.0537 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.4062 -1.3021 -0.0691 0.0444 -0.0526 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0644 -0.0197 0.1478 0.1576 -0.0566 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 21.6 6.7 13.6 17.8 13.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0527 -0.0247 0.1115 0.1576 -0.0566 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2048 -0.0324 0.014 0.0715 -0.1393 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 18.04 14.92 23.24 27.53 9.85 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.7657 3.4367 -1.4062 -1.3021 -0.0691 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.4 2.34 2.9 -1.39 -2.04
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -8.36
##   .. .. .. ..$ log.posterior.orig: num -5.09
##   .. .. .. ..$ mean              : num [1:86030] -1.6944 -1.5727 -0.0878 0.0522 -0.0651 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.6845 -1.563 -0.086 0.0543 -0.0637 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0545 -0.0147 0.1269 0.1271 -0.0454 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 24.58 6.86 14.91 21.43 16.35 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0428 -0.0198 0.0904 0.1271 -0.0454 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2054 -0.0337 0.0159 0.073 -0.1393 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.96 15 23.12 27.44 9.81 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.728 3.578 -1.684 -1.563 -0.086 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.4 2.72 2.93 -1.16 -1.83
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -6.1
##   .. .. .. ..$ log.posterior.orig: num -2.83
##   .. .. .. ..$ mean              : num [1:86030] -1.6206 -1.6041 -0.1339 0.0175 -0.1013 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.6128 -1.5966 -0.1322 0.0196 -0.0998 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0584 -0.0167 0.1348 0.141 -0.0514 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 24.37 7.81 15.6 21.92 17.26 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0464 -0.0225 0.0983 0.141 -0.0514 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2085 -0.0321 0.0131 0.0693 -0.1369 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.8 15.1 23.2 27.4 10.1 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.81 3.33 -1.613 -1.597 -0.132 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:5] -4.4 2.59 2.77 -1.61 -1.71
##   .. .. .. .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -12.8
##   .. .. .. ..$ log.posterior.orig: num -9.5
##   .. .. .. ..$ mean              : num [1:86030] -1.9095 -1.453 -0.02 0.0511 -0.0147 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] -1.9036 -1.4471 -0.0195 0.0518 -0.0143 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.0587 -0.0136 0.1348 0.1307 -0.0441 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 21.53 4.91 12.4 16.37 11.55 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 0.0468 -0.0192 0.0981 0.1307 -0.0441 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.2065 -0.033 0.018 0.0716 -0.1324 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.58 15.06 22.93 27.34 9.49 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 20.6731 3.8139 -1.9036 -1.4471 -0.0195 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. ..$ max.log.posterior: num -55533
##   ..$ nfunc                             : num 3400
##   ..$ warnings                          : chr "Stupid local search strategy used: This is usually a sign of a ill-defined model and/or non-informative data."
##   ..$ opt.trace                         :List of 3
##   .. ..$ f    : Named num [1:717] 584358 583957 299017 299017 298867 ...
##   .. .. ..- attr(*, "names")= chr [1:717] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ nfunc: Named int [1:717] 1 2 7 8 10 14 15 16 21 22 ...
##   .. .. ..- attr(*, "names")= chr [1:717] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ theta: num [1:717, 1:5] 3.03e-08 3.03e-08 -8.82e-01 -8.82e-01 -8.82e-01 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : chr [1:717] "iter1" "iter2" "iter3" "iter4" ...
##   .. .. .. ..$ : chr [1:5] "theta1" "theta2" "theta3" "theta4" ...
##   ..$ theta.mode                        : num [1:5] -4.4 2.34 2.96 -1.4 -2.03
##   ..$ linkfunctions                     :List of 2
##   .. ..$ names: chr "identity"
##   .. ..$ link : int [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ family                            : int [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##  $ dic                        :List of 14
##   ..$ dic              : num 107972
##   ..$ p.eff            : num 3086
##   ..$ mean.deviance    : num 104885
##   ..$ deviance.mean    : num 101799
##   ..$ dic.sat          : num -82876
##   ..$ mean.deviance.sat: num -85963
##   ..$ deviance.mean.sat: num -77457
##   ..$ family.dic       : num 107972
##   ..$ family.dic.sat   : num -94469
##   ..$ family.p.eff     : num 3086
##   ..$ family           : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ local.dic        : num [1:14535] 10.43 7.21 7.16 7.58 8.31 ...
##   ..$ local.dic.sat    : num [1:14535] 4.294 1.074 0.205 -34.96 2.169 ...
##   ..$ local.p.eff      : num [1:14535] 0.0345 0.5211 0.5219 0.5799 0.4143 ...
##  $ mode                       :List of 5
##   ..$ theta             : Named num [1:5] -4.4 2.34 2.96 -1.4 -2.03
##   .. ..- attr(*, "names")= chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   ..$ x                 : num [1:186595] 17.77 14.94 23.25 27.67 9.52 ...
##   ..$ theta.tags        : chr [1:5] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   ..$ mode.status       : num 0
##   ..$ log.posterior.mode: num -55534
##  $ joint.hyper                :'data.frame': 24 obs. of  7 variables:
##   ..$ log precision for the student-t observations: num [1:24] -4.4 -4.41 -4.42 -4.36 -4.39 ...
##   ..$ dof_intern for student-t                    : num [1:24] 2.34 2.34 2.34 2.34 2.89 ...
##   ..$ Theta1 for field                            : num [1:24] 2.96 2.97 2.93 3 2.91 ...
##   ..$ Theta2 for field                            : num [1:24] -1.4 -1.4 -1.39 -1.41 -1.53 ...
##   ..$ Theta3 for field                            : num [1:24] -2.03 -2.03 -2.04 -2.02 -1.98 ...
##   ..$ Log posterior density                       : num [1:24] -55547 -55549 -55550 -55551 -55553 ...
##   ..$ Total integration weight (log.dens included): num [1:24] 0.05511 0.04612 0.01388 0.0045 0.00125 ...
##  $ nhyper                     : int 5
##  $ version                    :List of 2
##   ..$ inla.call: chr "GITCOMMIT [dd38f0f7c6eb72df31ce7dd489d9352e91ffe0df - Thu Apr 25 18:31:00 2024 +0300]"
##   ..$ R.INLA   : Named chr "24.04.25-1"
##   .. ..- attr(*, "names")= chr "version"
##  $ Q                          : NULL
##  $ graph                      : NULL
##  $ ok                         : logi TRUE
##  $ cpu.intern                 : chr [1:16] "Wall-clock time used on [/tmp/RtmpsXS2lu/file18744e3521e2c7/Model.ini]" "Preparations             :   0.252 seconds" "Approx inference (stage1): 1101.510 seconds" "Approx inference (stage2):   0.002 seconds" ...
##  $ cpu.used                   : Named num [1:4] 0.405 1104.123 6.955 1111.483
##   ..- attr(*, "names")= chr [1:4] "Pre" "Running" "Post" "Total"
##  $ all.hyper                  :List of 4
##   ..$ predictor:List of 1
##   .. ..$ hyper:List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   ..$ family   :List of 1
##   .. ..$ :List of 4
##   .. .. ..$ hyperid: chr "INLA.Data1"
##   .. .. ..$ label  : chr "t"
##   .. .. ..$ hyper  :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "log precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 0
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log degrees of freedom"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "degrees of freedom for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "dof_intern for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "pc.dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 15 0.5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ link   :List of 1
##   .. .. .. ..$ hyper: list()
##   ..$ linear   :List of 2
##   .. ..$ :List of 3
##   .. .. ..$ label     : chr "Intercept"
##   .. .. ..$ prior.mean: num 0
##   .. .. ..$ prior.prec: num 0.001
##   .. ..$ :List of 3
##   .. .. ..$ label     : chr "SpeedLimit"
##   .. .. ..$ prior.mean: num 0
##   .. .. ..$ prior.prec: num 0.001
##   ..$ random   :List of 3
##   .. ..$ : NULL
##   .. ..$ : NULL
##   .. ..$ :List of 3
##   .. .. ..$ hyperid    : chr "field"
##   .. .. ..$ hyper      : NULL
##   .. .. ..$ group.hyper:List of 1
##   .. .. .. ..$ theta:List of 9
##   .. .. .. .. ..$ hyperid   : num 40001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name      : chr "logit correlation"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name: chr "rho"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial   : num 1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed     : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior     : chr "normal"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param     : num [1:2] 0 0.2
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta  :function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta:function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##  $ .args                      :List of 30
##   ..$ formula          :Class 'formula'  language BRU.response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   ..$ family           : chr "t"
##   ..$ data             :List of 21
##   .. ..$ BRU.response             : num [1:14535] 0 12.9 24.1 32.2 0 ...
##   .. ..$ BRU.E                    : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.Ntrials              : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.weights              : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.scale                : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.offset               : num [1:14535] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ Intercept                : num [1:86030] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.group          : int [1:86030] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.repl           : int [1:86030] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit               : num [1:86030] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit.group         : int [1:86030] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit.repl          : int [1:86030] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ field                    : int [1:86030] NA NA 1 2 3 4 5 6 7 8 ...
##   .. ..$ field.group              : int [1:86030] NA NA 1 1 1 1 1 1 1 1 ...
##   .. ..$ field.repl               : int [1:86030] NA NA 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU_Intercept_main_model : chr "linear"
##   .. ..$ BRU_Intercept_values     : num 1
##   .. ..$ BRU_SpeedLimit_main_model: chr "linear"
##   .. ..$ BRU_SpeedLimit_values    : num 1
##   .. ..$ BRU_field_main_model     :List of 20
##   .. .. ..$ f                   :List of 3
##   .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. ..$ n       : int 21507
##   .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. ..$ rspde.order: int 2
##   .. .. .. .. .. ..$ doubles   :List of 11
##   .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. ..$ matrices_less       : num [1:94764] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. ..$ matrices_full       : num [1:207848] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. ..$ characters:List of 5
##   .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. ..$ matrices  :List of 2
##   .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. ..$ cgeneric_type       : chr "general"
##   .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. ..$ prior.nu            :List of 4
##   .. .. .. ..$ loglocation: num -0.288
##   .. .. .. ..$ mean       : num 0.75
##   .. .. .. ..$ prec       : num 3
##   .. .. .. ..$ logscale   : num 1
##   .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. ..$ start.nu            : num 0.75
##   .. .. ..$ integer.nu          : logi FALSE
##   .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. ..$ stationary          : logi TRUE
##   .. .. ..$ rspde.order         : num 2
##   .. .. ..$ dim                 : num 1
##   .. .. ..$ est_nu              : logi TRUE
##   .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. ..$ debug               : logi FALSE
##   .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. ..$ fem_mesh            :List of 5
##   .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. ..$ parameterization    : chr "matern"
##   .. .. ..$ n.spde              : int 7169
##   .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. ..$ BRU_field_values         : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ quantiles        : num [1:3] 0.025 0.5 0.975
##   ..$ E                : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ offset           : num [1:14535] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ scale            : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ weights          : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ Ntrials          : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ verbose          : logi FALSE
##   ..$ control.compute  :List of 18
##   .. ..$ openmp.strategy           : chr "default"
##   .. ..$ hyperpar                  : logi TRUE
##   .. ..$ return.marginals          : logi TRUE
##   .. ..$ return.marginals.predictor: logi FALSE
##   .. ..$ dic                       : logi TRUE
##   .. ..$ mlik                      : logi TRUE
##   .. ..$ cpo                       : logi FALSE
##   .. ..$ po                        : logi FALSE
##   .. ..$ waic                      : logi TRUE
##   .. ..$ residuals                 : logi FALSE
##   .. ..$ q                         : logi FALSE
##   .. ..$ config                    : logi TRUE
##   .. ..$ likelihood.info           : logi FALSE
##   .. ..$ smtp                      : NULL
##   .. ..$ graph                     : logi FALSE
##   .. ..$ internal.opt              : NULL
##   .. ..$ save.memory               : NULL
##   .. ..$ control.gcpo              :List of 16
##   .. .. ..$ enable          : logi FALSE
##   .. .. ..$ num.level.sets  : num -1
##   .. .. ..$ size.max        : num 32
##   .. .. ..$ strategy        : chr [1:2] "posterior" "prior"
##   .. .. ..$ groups          : NULL
##   .. .. ..$ selection       : NULL
##   .. .. ..$ group.selection : NULL
##   .. .. ..$ friends         : NULL
##   .. .. ..$ weights         : NULL
##   .. .. ..$ verbose         : logi FALSE
##   .. .. ..$ epsilon         : num 0.005
##   .. .. ..$ prior.diagonal  : num 1e-04
##   .. .. ..$ correct.hyperpar: logi TRUE
##   .. .. ..$ keep            : NULL
##   .. .. ..$ remove          : NULL
##   .. .. ..$ remove.fixed    : logi TRUE
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_gcpo" "inla_ctrl_object"
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_compute" "inla_ctrl_object"
##   ..$ control.predictor:List of 12
##   .. ..$ hyper    :List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. ..$ fixed    : NULL
##   .. ..$ prior    : NULL
##   .. ..$ param    : NULL
##   .. ..$ initial  : NULL
##   .. ..$ compute  : logi TRUE
##   .. ..$ cdf      : NULL
##   .. ..$ quantiles: NULL
##   .. ..$ cross    : NULL
##   .. ..$ A        :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:116238] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:116238] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 14535 86030
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:116238] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ precision: num 3269017
##   .. ..$ link     : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_predictor" "inla_ctrl_object"
##   ..$ control.family   :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ dummy            : num 0
##   .. .. ..$ hyper            :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "log precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 0
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log degrees of freedom"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "degrees of freedom for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "dof_intern for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "pc.dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 15 0.5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ initial          : NULL
##   .. .. ..$ prior            : NULL
##   .. .. ..$ param            : NULL
##   .. .. ..$ fixed            : NULL
##   .. .. ..$ link             : chr "default"
##   .. .. ..$ sn.shape.max     : num 5
##   .. .. ..$ gev.scale.xi     : num 0.1
##   .. .. ..$ control.bgev     : NULL
##   .. .. ..$ cenpoisson.I     : int [1:2] -1 -1
##   .. .. ..$ beta.censor.value: num 0
##   .. .. ..$ variant          : int 0
##   .. .. ..$ control.mix      : NULL
##   .. .. ..$ control.pom      : NULL
##   .. .. ..$ control.link     :List of 10
##   .. .. .. ..$ model   : chr "default"
##   .. .. .. ..$ order   : NULL
##   .. .. .. ..$ variant : NULL
##   .. .. .. ..$ hyper   : list()
##   .. .. .. ..$ quantile: NULL
##   .. .. .. ..$ a       : num 1
##   .. .. .. ..$ initial : NULL
##   .. .. .. ..$ fixed   : NULL
##   .. .. .. ..$ prior   : NULL
##   .. .. .. ..$ param   : NULL
##   .. .. .. ..- attr(*, "class")= chr [1:2] "ctrl_link" "inla_ctrl_object"
##   .. .. ..$ link.simple      : chr "default"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_family" "inla_ctrl_object"
##   ..$ control.inla     :List of 56
##   .. ..$ strategy                          : chr "auto"
##   .. ..$ int.strategy                      : chr "auto"
##   .. ..$ int.design                        : NULL
##   .. ..$ interpolator                      : chr "auto"
##   .. ..$ fast                              : logi TRUE
##   .. ..$ linear.correction                 : NULL
##   .. ..$ h                                 : num 0.005
##   .. ..$ dz                                : num 0.75
##   .. ..$ diff.logdens                      : num 6
##   .. ..$ print.joint.hyper                 : logi TRUE
##   .. ..$ force.diagonal                    : logi FALSE
##   .. ..$ skip.configurations               : logi TRUE
##   .. ..$ mode.known                        : logi FALSE
##   .. ..$ adjust.weights                    : logi TRUE
##   .. ..$ tolerance                         : num 0.005
##   .. ..$ tolerance.f                       : NULL
##   .. ..$ tolerance.g                       : NULL
##   .. ..$ tolerance.x                       : NULL
##   .. ..$ tolerance.step                    : NULL
##   .. ..$ restart                           : int 0
##   .. ..$ optimiser                         : chr "default"
##   .. ..$ verbose                           : NULL
##   .. ..$ reordering                        : chr "auto"
##   .. ..$ cpo.diff                          : NULL
##   .. ..$ npoints                           : num 9
##   .. ..$ cutoff                            : num 1e-04
##   .. ..$ adapt.hessian.mode                : NULL
##   .. ..$ adapt.hessian.max.trials          : NULL
##   .. ..$ adapt.hessian.scale               : NULL
##   .. ..$ adaptive.max                      : int 25
##   .. ..$ huge                              : logi FALSE
##   .. ..$ step.len                          : num 0
##   .. ..$ stencil                           : int 5
##   .. ..$ lincomb.derived.correlation.matrix: logi FALSE
##   .. ..$ diagonal                          : num 0
##   .. ..$ numint.maxfeval                   : num 1e+05
##   .. ..$ numint.relerr                     : num 1e-05
##   .. ..$ numint.abserr                     : num 1e-06
##   .. ..$ cmin                              : num -Inf
##   .. ..$ b.strategy                        : chr "keep"
##   .. ..$ step.factor                       : num -0.1
##   .. ..$ global.node.factor                : num 2
##   .. ..$ global.node.degree                : int 2147483647
##   .. ..$ stupid.search                     : logi TRUE
##   .. ..$ stupid.search.max.iter            : int 1000
##   .. ..$ stupid.search.factor              : num 1.05
##   .. ..$ control.vb                        :List of 8
##   .. .. ..$ enable          : chr "auto"
##   .. .. ..$ strategy        : chr [1:2] "mean" "variance"
##   .. .. ..$ verbose         : logi TRUE
##   .. .. ..$ iter.max        : num 25
##   .. .. ..$ emergency       : num 25
##   .. .. ..$ f.enable.limit  : num [1:4] 30 25 1024 768
##   .. .. ..$ hessian.update  : num 2
##   .. .. ..$ hessian.strategy: chr [1:4] "default" "full" "partial" "diagonal"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_vb" "inla_ctrl_object"
##   .. ..$ num.gradient                      : chr "central"
##   .. ..$ num.hessian                       : chr "central"
##   .. ..$ optimise.strategy                 : chr "smart"
##   .. ..$ use.directions                    : logi TRUE
##   .. ..$ constr.marginal.diagonal          : num 1.49e-08
##   .. ..$ improved.simplified.laplace       : logi FALSE
##   .. ..$ parallel.linesearch               : logi FALSE
##   .. ..$ compute.initial.values            : logi TRUE
##   .. ..$ hessian.correct.skewness.only     : logi TRUE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_inla" "inla_ctrl_object"
##   ..$ control.fixed    :List of 10
##   .. ..$ cdf                   : NULL
##   .. ..$ quantiles             : NULL
##   .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ mean                  : num 0
##   .. ..$ mean.intercept        : num 0
##   .. ..$ prec                  : num 0.001
##   .. ..$ prec.intercept        : num 0
##   .. ..$ compute               : logi TRUE
##   .. ..$ correlation.matrix    : logi FALSE
##   .. ..$ remove.names          : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_fixed" "inla_ctrl_object"
##   ..$ control.mode     :List of 5
##   .. ..$ result : NULL
##   .. ..$ theta  : NULL
##   .. ..$ x      : NULL
##   .. ..$ restart: logi FALSE
##   .. ..$ fixed  : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_mode" "inla_ctrl_object"
##   ..$ control.expert   :List of 6
##   .. ..$ cpo.manual            : logi FALSE
##   .. ..$ cpo.idx               : num -1
##   .. ..$ disable.gaussian.check: logi FALSE
##   .. ..$ jp                    : NULL
##   .. ..$ dot.product.gain      : logi FALSE
##   .. ..$ globalconstr          :List of 2
##   .. .. ..$ A: NULL
##   .. .. ..$ e: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_expert" "inla_ctrl_object"
##   ..$ control.lincomb  :List of 1
##   .. ..$ verbose: logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lincomb" "inla_ctrl_object"
##   ..$ control.update   :List of 1
##   .. ..$ result: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_update" "inla_ctrl_object"
##   ..$ control.lp.scale :List of 1
##   .. ..$ hyper:List of 100
##   .. .. ..$ theta1  :List of 11
##   .. .. .. ..$ hyperid           : num 103001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta2  :List of 11
##   .. .. .. ..$ hyperid           : num 103002
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta3  :List of 11
##   .. .. .. ..$ hyperid           : num 103003
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta4  :List of 11
##   .. .. .. ..$ hyperid           : num 103004
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta5  :List of 11
##   .. .. .. ..$ hyperid           : num 103005
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta6  :List of 11
##   .. .. .. ..$ hyperid           : num 103006
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta7  :List of 11
##   .. .. .. ..$ hyperid           : num 103007
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta8  :List of 11
##   .. .. .. ..$ hyperid           : num 103008
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta9  :List of 11
##   .. .. .. ..$ hyperid           : num 103009
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta10 :List of 11
##   .. .. .. ..$ hyperid           : num 103010
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta11 :List of 11
##   .. .. .. ..$ hyperid           : num 103011
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta12 :List of 11
##   .. .. .. ..$ hyperid           : num 103012
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta13 :List of 11
##   .. .. .. ..$ hyperid           : num 103013
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta14 :List of 11
##   .. .. .. ..$ hyperid           : num 103014
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta15 :List of 11
##   .. .. .. ..$ hyperid           : num 103015
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta16 :List of 11
##   .. .. .. ..$ hyperid           : num 103016
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta17 :List of 11
##   .. .. .. ..$ hyperid           : num 103017
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta18 :List of 11
##   .. .. .. ..$ hyperid           : num 103018
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta19 :List of 11
##   .. .. .. ..$ hyperid           : num 103019
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta20 :List of 11
##   .. .. .. ..$ hyperid           : num 103020
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta21 :List of 11
##   .. .. .. ..$ hyperid           : num 103021
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta22 :List of 11
##   .. .. .. ..$ hyperid           : num 103022
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta23 :List of 11
##   .. .. .. ..$ hyperid           : num 103023
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta24 :List of 11
##   .. .. .. ..$ hyperid           : num 103024
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta25 :List of 11
##   .. .. .. ..$ hyperid           : num 103025
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta26 :List of 11
##   .. .. .. ..$ hyperid           : num 103026
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta27 :List of 11
##   .. .. .. ..$ hyperid           : num 103027
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta28 :List of 11
##   .. .. .. ..$ hyperid           : num 103028
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta29 :List of 11
##   .. .. .. ..$ hyperid           : num 103029
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta30 :List of 11
##   .. .. .. ..$ hyperid           : num 103030
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta31 :List of 11
##   .. .. .. ..$ hyperid           : num 103031
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta32 :List of 11
##   .. .. .. ..$ hyperid           : num 103032
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta33 :List of 11
##   .. .. .. ..$ hyperid           : num 103033
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta34 :List of 11
##   .. .. .. ..$ hyperid           : num 103034
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta35 :List of 11
##   .. .. .. ..$ hyperid           : num 103035
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta36 :List of 11
##   .. .. .. ..$ hyperid           : num 103036
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta37 :List of 11
##   .. .. .. ..$ hyperid           : num 103037
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta38 :List of 11
##   .. .. .. ..$ hyperid           : num 103038
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta39 :List of 11
##   .. .. .. ..$ hyperid           : num 103039
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta40 :List of 11
##   .. .. .. ..$ hyperid           : num 103040
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta41 :List of 11
##   .. .. .. ..$ hyperid           : num 103041
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta42 :List of 11
##   .. .. .. ..$ hyperid           : num 103042
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta43 :List of 11
##   .. .. .. ..$ hyperid           : num 103043
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta44 :List of 11
##   .. .. .. ..$ hyperid           : num 103044
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta45 :List of 11
##   .. .. .. ..$ hyperid           : num 103045
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta46 :List of 11
##   .. .. .. ..$ hyperid           : num 103046
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta47 :List of 11
##   .. .. .. ..$ hyperid           : num 103047
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta48 :List of 11
##   .. .. .. ..$ hyperid           : num 103048
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta49 :List of 11
##   .. .. .. ..$ hyperid           : num 103049
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta50 :List of 11
##   .. .. .. ..$ hyperid           : num 103050
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta51 :List of 11
##   .. .. .. ..$ hyperid           : num 103051
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta52 :List of 11
##   .. .. .. ..$ hyperid           : num 103052
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta53 :List of 11
##   .. .. .. ..$ hyperid           : num 103053
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta54 :List of 11
##   .. .. .. ..$ hyperid           : num 103054
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta55 :List of 11
##   .. .. .. ..$ hyperid           : num 103055
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta56 :List of 11
##   .. .. .. ..$ hyperid           : num 103056
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta57 :List of 11
##   .. .. .. ..$ hyperid           : num 103057
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta58 :List of 11
##   .. .. .. ..$ hyperid           : num 103058
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta59 :List of 11
##   .. .. .. ..$ hyperid           : num 103059
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta60 :List of 11
##   .. .. .. ..$ hyperid           : num 103060
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta61 :List of 11
##   .. .. .. ..$ hyperid           : num 103061
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta62 :List of 11
##   .. .. .. ..$ hyperid           : num 103062
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta63 :List of 11
##   .. .. .. ..$ hyperid           : num 103063
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta64 :List of 11
##   .. .. .. ..$ hyperid           : num 103064
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta65 :List of 11
##   .. .. .. ..$ hyperid           : num 103065
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta66 :List of 11
##   .. .. .. ..$ hyperid           : num 103066
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta67 :List of 11
##   .. .. .. ..$ hyperid           : num 103067
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta68 :List of 11
##   .. .. .. ..$ hyperid           : num 103068
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta69 :List of 11
##   .. .. .. ..$ hyperid           : num 103069
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta70 :List of 11
##   .. .. .. ..$ hyperid           : num 103070
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta71 :List of 11
##   .. .. .. ..$ hyperid           : num 103071
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta72 :List of 11
##   .. .. .. ..$ hyperid           : num 103072
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta73 :List of 11
##   .. .. .. ..$ hyperid           : num 103073
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta74 :List of 11
##   .. .. .. ..$ hyperid           : num 103074
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta75 :List of 11
##   .. .. .. ..$ hyperid           : num 103075
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta76 :List of 11
##   .. .. .. ..$ hyperid           : num 103076
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta77 :List of 11
##   .. .. .. ..$ hyperid           : num 103077
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta78 :List of 11
##   .. .. .. ..$ hyperid           : num 103078
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta79 :List of 11
##   .. .. .. ..$ hyperid           : num 103079
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta80 :List of 11
##   .. .. .. ..$ hyperid           : num 103080
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta81 :List of 11
##   .. .. .. ..$ hyperid           : num 103081
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta82 :List of 11
##   .. .. .. ..$ hyperid           : num 103082
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta83 :List of 11
##   .. .. .. ..$ hyperid           : num 103083
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta84 :List of 11
##   .. .. .. ..$ hyperid           : num 103084
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta85 :List of 11
##   .. .. .. ..$ hyperid           : num 103085
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta86 :List of 11
##   .. .. .. ..$ hyperid           : num 103086
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta87 :List of 11
##   .. .. .. ..$ hyperid           : num 103087
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta88 :List of 11
##   .. .. .. ..$ hyperid           : num 103088
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta89 :List of 11
##   .. .. .. ..$ hyperid           : num 103089
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta90 :List of 11
##   .. .. .. ..$ hyperid           : num 103090
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta91 :List of 11
##   .. .. .. ..$ hyperid           : num 103091
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta92 :List of 11
##   .. .. .. ..$ hyperid           : num 103092
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta93 :List of 11
##   .. .. .. ..$ hyperid           : num 103093
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta94 :List of 11
##   .. .. .. ..$ hyperid           : num 103094
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta95 :List of 11
##   .. .. .. ..$ hyperid           : num 103095
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta96 :List of 11
##   .. .. .. ..$ hyperid           : num 103096
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta97 :List of 11
##   .. .. .. ..$ hyperid           : num 103097
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta98 :List of 11
##   .. .. .. ..$ hyperid           : num 103098
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta99 :List of 11
##   .. .. .. ..$ hyperid           : num 103099
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. [list output truncated]
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lp_scale" "inla_ctrl_object"
##   ..$ control.pardiso  :List of 4
##   .. ..$ verbose            : logi FALSE
##   .. ..$ debug              : logi FALSE
##   .. ..$ parallel.reordering: logi TRUE
##   .. ..$ nrhs               : num -1
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_pardiso" "inla_ctrl_object"
##   ..$ only.hyperparam  : logi FALSE
##   ..$ inla.call        : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/inla.mkl.run"
##   ..$ num.threads      : chr "24:1"
##   ..$ keep             : logi FALSE
##   ..$ silent           : logi TRUE
##   ..$ inla.mode        : chr "compact"
##   ..$ safe             : logi TRUE
##   ..$ debug            : logi FALSE
##   ..$ .parent.frame    :<environment: R_GlobalEnv> 
##  $ call                       : chr [1:14] "inla.core(formula = formula, family = family, contrasts = contrasts, " "    data = data, quantiles = quantiles, E = E, offset = offset, " "    scale = scale, weights = weights, Ntrials = Ntrials, strata = strata, " "    lp.scale = lp.scale, link.covariates = link.covariates, verbose = verbose, " ...
##  $ model.matrix               :Formal class 'dsparseModelMatrix' [package "MatrixModels"] with 8 slots
##   .. ..@ i        : int(0) 
##   .. ..@ p        : int 0
##   .. ..@ Dim      : int [1:2] 86030 0
##   .. ..@ Dimnames :List of 2
##   .. .. ..$ : chr [1:86030] "1" "2" "3" "4" ...
##   .. .. ..$ : NULL
##   .. ..@ x        : num(0) 
##   .. ..@ factors  : list()
##   .. ..@ assign   : int(0) 
##   .. ..@ contrasts: Named list()
##  $ bru_iinla                  :List of 5
##   ..$ log       :Class 'bru_log'  hidden list of 2
##   .. ..$ log      : chr [1:7] "2024-05-02 18:14:38.834316: iinla: Evaluate component inputs" "2024-05-02 18:14:38.901631: iinla: Evaluate component linearisations" "2024-05-02 18:14:41.865293: iinla: Evaluate component simplifications" "2024-05-02 18:14:44.738789: iinla: Evaluate predictor linearisation" ...
##   .. ..$ bookmarks: Named int 0
##   .. .. ..- attr(*, "names")= chr "iinla"
##   ..$ states    :List of 1
##   .. ..$ :List of 3
##   .. .. ..$ Intercept : num 0
##   .. .. ..$ SpeedLimit: num 0
##   .. .. ..$ field     : num [1:86028] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ inla_stack:List of 3
##   .. ..$ A      :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:116238] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ p       : int [1:86031] 0 14535 29070 29074 29081 29081 29081 29081 29082 29083 ...
##   .. .. .. ..@ Dim     : int [1:2] 14535 86030
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:116238] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ data   :List of 5
##   .. .. ..$ data :'data.frame':  14535 obs. of  6 variables:
##   .. .. .. ..$ BRU.response: num [1:14535] 0 12.9 24.1 32.2 0 ...
##   .. .. .. ..$ BRU.E       : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.Ntrials : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.weights : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.scale   : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.offset  : num [1:14535] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. ..$ nrow : int 14535
##   .. .. ..$ ncol : Named int [1:6] 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:6] "BRU.response" "BRU.E" "BRU.Ntrials" "BRU.weights" ...
##   .. .. ..$ names:List of 6
##   .. .. .. ..$ BRU.response: chr "BRU.response"
##   .. .. .. ..$ BRU.E       : chr "BRU.E"
##   .. .. .. ..$ BRU.Ntrials : chr "BRU.Ntrials"
##   .. .. .. ..$ BRU.weights : chr "BRU.weights"
##   .. .. .. ..$ BRU.scale   : chr "BRU.scale"
##   .. .. .. ..$ BRU.offset  : chr "BRU.offset"
##   .. .. ..$ index:List of 1
##   .. .. .. ..$ : num [1:14535] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..$ effects:List of 5
##   .. .. ..$ data :'data.frame':  86030 obs. of  9 variables:
##   .. .. .. ..$ Intercept       : num [1:86030] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.group : int [1:86030] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.repl  : int [1:86030] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit      : num [1:86030] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit.group: int [1:86030] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit.repl : int [1:86030] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ field           : int [1:86030] NA NA 1 2 3 4 5 6 7 8 ...
##   .. .. .. ..$ field.group     : int [1:86030] NA NA 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ field.repl      : int [1:86030] NA NA 1 1 1 1 1 1 1 1 ...
##   .. .. ..$ nrow : int 86030
##   .. .. ..$ ncol : Named int [1:9] 1 1 1 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:9] "Intercept" "Intercept.group" "Intercept.repl" "SpeedLimit" ...
##   .. .. ..$ names:List of 9
##   .. .. .. ..$ Intercept       : chr "Intercept"
##   .. .. .. ..$ Intercept.group : chr "Intercept.group"
##   .. .. .. ..$ Intercept.repl  : chr "Intercept.repl"
##   .. .. .. ..$ SpeedLimit      : chr "SpeedLimit"
##   .. .. .. ..$ SpeedLimit.group: chr "SpeedLimit.group"
##   .. .. .. ..$ SpeedLimit.repl : chr "SpeedLimit.repl"
##   .. .. .. ..$ field           : chr "field"
##   .. .. .. ..$ field.group     : chr "field.group"
##   .. .. .. ..$ field.repl      : chr "field.repl"
##   .. .. ..$ index:List of 3
##   .. .. .. ..$ : int 1
##   .. .. .. ..$ : int 2
##   .. .. .. ..$ : int [1:86028] 3 4 5 6 7 8 9 10 11 12 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..- attr(*, "class")= chr "inla.data.stack"
##   ..$ track     :'data.frame':   86036 obs. of  6 variables:
##   .. ..$ effect           : chr [1:86036] "Intercept" "SpeedLimit" "field" "field" ...
##   .. ..$ index            : num [1:86036] 1 1 1 2 3 4 5 6 7 8 ...
##   .. ..$ iteration        : num [1:86036] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ mode             : num [1:86036] 20.8052 3.4711 -1.7621 -1.5153 -0.0679 ...
##   .. ..$ sd               : num [1:86036] 0.333 0.223 5.107 4.029 4.817 ...
##   .. ..$ new_linearisation: num [1:86036] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ timings   :'data.frame':   2 obs. of  3 variables:
##   .. ..$ Task     : chr [1:2] "Preprocess" "Run inla()"
##   .. ..$ Iteration: num [1:2] 1 1
##   .. ..$ Time     : 'difftime' num [1:2] 1.21855672995249 18.5264885425568
##   .. .. ..- attr(*, "units")= chr "mins"
##  $ bru_timings                :'data.frame': 3 obs. of  3 variables:
##   ..$ Task     : chr [1:3] "Preprocess" "Preprocess" "Run inla()"
##   ..$ Iteration: num [1:3] 0 1 1
##   ..$ Time     : 'difftime' num [1:3] 0.057889461517334 73.1134037971497 1111.58931255341
##   .. ..- attr(*, "units")= chr "secs"
##  $ bru_info                   :List of 6
##   ..$ method         : chr "bru"
##   ..$ model          :List of 2
##   .. ..$ effects:List of 3
##   .. .. ..$ Intercept :List of 12
##   .. .. .. ..$ label       : chr "Intercept"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : num 1
##   .. .. .. .. .. ..$ label   : chr "Intercept"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        : list()
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "linear"
##   .. .. .. .. ..$ type          : chr "linear"
##   .. .. .. .. ..$ n             : int 1
##   .. .. .. .. ..$ values        : num 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x639799d072d0> 
##   .. .. .. ..$ fcall       : language "f"(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 1
##   .. .. .. .. .. .. ..$ n_inla           : num 1
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 1 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 1
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..$ SpeedLimit:List of 12
##   .. .. .. ..$ label       : chr "SpeedLimit"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(SpeedLimit, model = BRU_SpeedLimit_main_model, ngroup = 1, nrep = 1,      values = BRU_SpeedLimit_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : symbol SpeedLimit
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        : list()
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "linear"
##   .. .. .. .. ..$ type          : chr "linear"
##   .. .. .. .. ..$ n             : int 1
##   .. .. .. .. ..$ values        : num 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x639799cbdd08> 
##   .. .. .. ..$ fcall       : language "f"(SpeedLimit, model = BRU_SpeedLimit_main_model, ngroup = 1, nrep = 1,      values = BRU_SpeedLimit_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 1
##   .. .. .. .. .. .. ..$ n_inla           : num 1
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 1 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 1
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..$ field     :List of 12
##   .. .. .. ..$ label       : chr "field"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : symbol loc
##   .. .. .. .. .. ..$ label   : chr "field"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ model:List of 20
##   .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. ..$ n       : int 21507
##   .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ rspde.order: int 2
##   .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 11
##   .. .. .. .. .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. .. ..$ matrices_less       : num [1:94764] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ matrices_full       : num [1:207848] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. .. ..$ characters:List of 5
##   .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. ..$ cgeneric_type       : chr "general"
##   .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. ..$ loglocation: num -0.288
##   .. .. .. .. .. .. .. ..$ mean       : num 0.75
##   .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. ..$ integer.nu          : logi FALSE
##   .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. .. .. .. ..$ stationary          : logi TRUE
##   .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. ..$ est_nu              : logi TRUE
##   .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. ..$ fem_mesh            :List of 5
##   .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. ..$ n.spde              : int 7169
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. ..$ model         :List of 20
##   .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. ..$ n       : int 21507
##   .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. ..$ rspde.order: int 2
##   .. .. .. .. .. .. .. .. ..$ doubles   :List of 11
##   .. .. .. .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. ..$ matrices_less       : num [1:94764] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ matrices_full       : num [1:207848] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. ..$ characters:List of 5
##   .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. ..$ matrices  :List of 2
##   .. .. .. .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. ..$ cgeneric_type       : chr "general"
##   .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. ..$ loglocation: num -0.288
##   .. .. .. .. .. .. ..$ mean       : num 0.75
##   .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. ..$ integer.nu          : logi FALSE
##   .. .. .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. .. .. ..$ stationary          : logi TRUE
##   .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. ..$ est_nu              : logi TRUE
##   .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. ..$ fem_mesh            :List of 5
##   .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. ..$ n.spde              : int 7169
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. ..$ type          : chr "cgeneric"
##   .. .. .. .. ..$ n             : num 21507
##   .. .. .. .. ..$ values        : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "field.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : language data_rspde_bru_stat[["repl"]]
##   .. .. .. .. .. ..$ label   : chr "field.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 4
##   .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : int 4
##   .. .. .. .. ..$ values        : int [1:4] 1 2 3 4
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x639799c7e6e0> 
##   .. .. .. ..$ fcall       : language "f"(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     :List of 1
##   .. .. .. .. .. .. .. .. ..$ model:List of 20
##   .. .. .. .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. .. .. .. ..$ n       : int 21507
##   .. .. .. .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ ints      :List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ rspde.order: int 2
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 11
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices_less       : num [1:94764] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices_full       : num [1:207848] 0.0797 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ characters:List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_stat_general_model"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ parameterization : chr "matern"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:6] 2 2 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ smatrices : list()
##   .. .. .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. .. .. .. ..$ cgeneric_type       : chr "general"
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. .. ..$ mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:2, 1:2] 0.1 0 0 0.1
##   .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. .. ..$ integer.nu          : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:2] 0 0.223
##   .. .. .. .. .. .. .. .. .. ..$ stationary          : logi TRUE
##   .. .. .. .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. .. .. .. ..$ est_nu              : logi TRUE
##   .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. .. .. .. ..$ fem_mesh            :List of 5
##   .. .. .. .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. .. .. .. ..$ n.spde              : int 7169
##   .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 4
##   .. .. .. .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 21507
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 21507
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 86028
##   .. .. .. .. .. .. ..$ n_inla           : num 86028
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 86028 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 86028
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..- attr(*, "class")= chr [1:2] "component_list" "list"
##   .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..$ formula:Class 'formula'  language BRU_response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..- attr(*, "class")= chr [1:2] "bru_model" "list"
##   ..$ lhoods         :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ family        : chr "T"
##   .. .. ..$ formula       :Class 'formula'  language speed ~ .
##   .. .. .. .. ..- attr(*, ".Environment")=<environment: 0x63979a3af2c8> 
##   .. .. ..$ response_data :List of 4
##   .. .. .. ..$ BRU_response: num [1:14535] 0 12.9 24.1 32.2 0 ...
##   .. .. .. ..$ BRU_E       : num 1
##   .. .. .. ..$ BRU_Ntrials : num 1
##   .. .. .. ..$ BRU_scale   : num 1
##   .. .. ..$ data          :List of 8
##   .. .. .. ..$ speed            : num [1:14535] 0 12.9 24.1 32.2 0 ...
##   .. .. .. ..$ SpeedLimit       : num [1:14535] -0.101 -0.617 -0.617 -0.617 -0.927 ...
##   .. .. .. ..$ .coord_x         : num [1:14535] -122 -122 -122 -122 -122 ...
##   .. .. .. ..$ .coord_y         : num [1:14535] 37.8 37.8 37.8 37.8 37.8 ...
##   .. .. .. ..$ .edge_number     : num [1:14535] 1 4 6 6 9 14 14 14 18 20 ...
##   .. .. .. ..$ .distance_on_edge: num [1:14535] 0.437 0.144 0.252 0.658 0.601 ...
##   .. .. .. ..$ .group           : chr [1:14535] "1" "1" "1" "1" ...
##   .. .. .. ..$ loc              : num [1:14535, 1:2] 1 4 6 6 9 14 14 14 18 20 ...
##   .. .. .. ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##   .. .. ..$ E             : num 1
##   .. .. ..$ Ntrials       : num 1
##   .. .. ..$ weights       : num 1
##   .. .. ..$ scale         : num 1
##   .. .. ..$ samplers      : NULL
##   .. .. ..$ linear        : logi TRUE
##   .. .. ..$ expr          : NULL
##   .. .. ..$ response      : chr "BRU_response"
##   .. .. ..$ inla.family   : chr "T"
##   .. .. ..$ domain        : NULL
##   .. .. ..$ used          :List of 2
##   .. .. .. ..$ effect: chr [1:3] "Intercept" "SpeedLimit" "field"
##   .. .. .. ..$ latent: chr(0) 
##   .. .. .. ..- attr(*, "class")= chr "bru_used"
##   .. .. ..$ allow_combine : logi TRUE
##   .. .. ..$ control.family: NULL
##   .. .. ..- attr(*, "class")= chr [1:2] "bru_like" "list"
##   .. ..- attr(*, "class")= chr [1:2] "bru_like_list" "list"
##   ..$ options        :List of 14
##   .. ..$ bru_verbose      : num 0
##   .. ..$ bru_verbose_store: num Inf
##   .. ..$ bru_max_iter     : num 1
##   .. ..$ bru_run          : logi TRUE
##   .. ..$ bru_int_args     :List of 3
##   .. .. ..$ method: chr "stable"
##   .. .. ..$ nsub1 : num 30
##   .. .. ..$ nsub2 : num 9
##   .. ..$ bru_method       :List of 6
##   .. .. ..$ taylor         : chr "pandemic"
##   .. .. ..$ search         : chr "all"
##   .. .. ..$ factor         : num 1.62
##   .. .. ..$ rel_tol        : num 0.1
##   .. .. ..$ max_step       : num 2
##   .. .. ..$ line_opt_method: chr "onestep"
##   .. ..$ bru_compress_cp  : logi TRUE
##   .. ..$ bru_debug        : logi FALSE
##   .. ..$ E                : num 1
##   .. ..$ Ntrials          : num 1
##   .. ..$ control.compute  :List of 3
##   .. .. ..$ config: logi TRUE
##   .. .. ..$ dic   : logi TRUE
##   .. .. ..$ waic  : logi TRUE
##   .. ..$ control.inla     :List of 1
##   .. .. ..$ int.strategy: chr "auto"
##   .. ..$ control.fixed    :List of 1
##   .. .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ verbose          : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "bru_options" "list"
##   ..$ inlabru_version: Named chr "2.10.1.9004"
##   .. ..- attr(*, "names")= chr "version"
##   ..$ INLA_version   : Named chr "24.04.25-1"
##   .. ..- attr(*, "names")= chr "version"
##   ..- attr(*, "class")= chr [1:2] "bru_info" "list"
##  - attr(*, "class")= chr [1:3] "bru" "iinla" "inla"
stat.time.fin <- Sys.time()
print(stat.time.fin - stat.time.ini)
## Time difference of 19.84526 mins
summary(rspde_fit_stat)
## inlabru version: 2.10.1.9004
## INLA version: 24.04.25-1
## Components:
## Intercept: main = linear(1), group = exchangeable(1L), replicate = iid(1L)
## SpeedLimit: main = linear(SpeedLimit), group = exchangeable(1L), replicate = iid(1L)
## field: main = cgeneric(loc), group = exchangeable(1L), replicate = iid(data_rspde_bru_stat[["repl"]])
## Likelihoods:
##   Family: 'T'
##     Data class: 'metric_graph_data', 'list'
##     Predictor: speed ~ .
## Time used:
##     Pre = 0.405, Running = 1104, Post = 6.95, Total = 1111 
## Fixed effects:
##              mean    sd 0.025quant 0.5quant 0.975quant   mode kld
## Intercept  20.791 0.333     20.145   20.789     21.451 20.789   0
## SpeedLimit  3.407 0.223      2.964    3.412      3.829  3.414   0
## 
## Random effects:
##   Name     Model
##     field CGeneric
## 
## Model hyperparameters:
##                                            mean    sd 0.025quant 0.5quant
## precision for the student-t observations  0.012 0.000      0.012    0.012
## degrees of freedom for student-t         13.678 1.916     11.024   13.340
## Theta1 for field                          2.963 0.053      2.862    2.962
## Theta2 for field                         -1.429 0.152     -1.742   -1.424
## Theta3 for field                         -2.071 0.160     -2.405   -2.064
##                                          0.975quant   mode
## precision for the student-t observations      0.013  0.012
## degrees of freedom for student-t             18.392 12.303
## Theta1 for field                              3.071  2.958
## Theta2 for field                             -1.145 -1.403
## Theta3 for field                             -1.777 -2.034
## 
## Deviance Information Criterion (DIC) ...............: 107971.97
## Deviance Information Criterion (DIC, saturated) ....: -82876.13
## Effective number of parameters .....................: 3086.49
## 
## Watanabe-Akaike information criterion (WAIC) ...: 108049.75
## Effective number of parameters .................: 2733.80
## 
## Marginal log-Likelihood:  -55543.43 
##  is computed 
## Posterior summaries for the linear predictor and the fitted values are computed
## (Posterior marginals needs also 'control.compute=list(return.marginals.predictor=TRUE)')
fit.rspde = rspde.result(rspde_fit_stat, "field", rspde_model_stat)
summary(fit.rspde)
##              mean        sd 0.025quant  0.5quant 0.975quant      mode
## std.dev 19.390900 1.0247400  17.512600 19.340000  21.533700 19.216100
## range    0.242352 0.0362496   0.175762  0.241075   0.317607  0.239901
## nu       0.169421 0.0235462   0.124622  0.169224   0.216557  0.170253

1.2 Nonstationary model

  • Observe that we are using the computed parameters from the stationary model as initial values for the nonstationary models.
nonstat.time.ini <- Sys.time()
################################################################################
############################# NON STATIONARY MODEL #############################
################################################################################

B.sigma = cbind(0, 1, 0, mesh$SpeedLimit, 0)
B.range = cbind(0, 0, 1, 0, mesh$SpeedLimit)
init.vec.theta = c(fit.rspde$summary.log.std.dev$mode, 
                   fit.rspde$summary.log.range$mode, 
                   rep(0, (ncol(B.sigma)-3)))

rspde_model_nonstat <- rspde.metric_graph(sf_graph,
                                          start.theta = init.vec.theta,
                                          theta.prior.mean = init.vec.theta,
                                          B.sigma = B.sigma,
                                          B.range = B.range,
                                          parameterization = "matern",
                                          nu.upper.bound = 1.5)
str(rspde_model_nonstat)
## List of 20
##  $ f                   :List of 3
##   ..$ model   : chr "cgeneric"
##   ..$ n       : int 21507
##   ..$ cgeneric:List of 5
##   .. ..$ model: chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. ..$ n    : int 21507
##   .. ..$ debug: logi FALSE
##   .. ..$ data :List of 5
##   .. .. ..$ ints      :List of 6
##   .. .. .. ..$ n          : int 21507
##   .. .. .. ..$ debug      : int 0
##   .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. ..$ rspde_order: int 2
##   .. .. .. ..$ matern_par : int 1
##   .. .. ..$ doubles   :List of 9
##   .. .. .. ..$ d                   : num 1
##   .. .. .. ..$ nu_upper_bound      : num 1.5
##   .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. ..$ start.theta         : num [1:4] 2.96 -1.4 0 0
##   .. .. .. ..$ theta.prior.mean    : num [1:4] 2.96 -1.4 0 0
##   .. .. ..$ characters:List of 4
##   .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. ..$ matrices  :List of 4
##   .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. ..$ B_tau           : num [1:35847] 7169 5 -1.15 -1 0.75 ...
##   .. .. .. ..$ B_kappa         : num [1:35847] 7169 5 0.896 0 -1 ...
##   .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. ..$ smatrices :List of 2
##   .. .. .. ..$ C: num [1:21510] 7169 7169 7169 0 1 ...
##   .. .. .. ..$ G: num [1:74640] 7169 7169 24879 0 1 ...
##   .. ..- attr(*, "class")= chr "inla.cgeneric"
##  $ cgeneric_type       : chr "general"
##  $ theta.prior.mean    : num [1:4] 2.96 -1.4 0 0
##  $ prior.nu            :List of 4
##   ..$ loglocation: num -0.288
##   ..$ mean       : num 0.75
##   ..$ prec       : num 3
##   ..$ logscale   : num 1
##  $ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##  $ start.nu            : num 0.75
##  $ integer.nu          : logi FALSE
##  $ start.theta         : num [1:4] 2.96 -1.4 0 0
##  $ stationary          : logi FALSE
##  $ rspde.order         : num 2
##  $ dim                 : num 1
##  $ est_nu              : logi TRUE
##  $ nu.upper.bound      : num 1.5
##  $ prior.nu.dist       : chr "lognormal"
##  $ debug               : logi FALSE
##  $ type.rational.approx: chr "chebfun"
##  $ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##  $ fem_mesh            :List of 5
##   ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. ..@ factors : list()
##   ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. ..@ factors : list()
##   ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. ..@ factors : list()
##   ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. ..@ factors : list()
##   ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. ..@ Dimnames:List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : NULL
##   .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. ..@ factors : list()
##  $ parameterization    : chr "matern"
##  $ n.spde              : int 7169
##  - attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
data_rspde_bru_nonstat <- graph_data_rspde(rspde_model_nonstat,
                                           repl = ".all",
                                           loc_name = "loc")
str(data_rspde_bru_nonstat)
## List of 4
##  $ data :List of 8
##   ..$ speed            : num [1:14535] 0 12.9 24.1 32.2 0 ...
##   ..$ SpeedLimit       : num [1:14535] -0.101 -0.617 -0.617 -0.617 -0.927 ...
##   ..$ .coord_x         : num [1:14535] -122 -122 -122 -122 -122 ...
##   ..$ .coord_y         : num [1:14535] 37.8 37.8 37.8 37.8 37.8 ...
##   ..$ .edge_number     : num [1:14535] 1 4 6 6 9 14 14 14 18 20 ...
##   ..$ .distance_on_edge: num [1:14535] 0.437 0.144 0.252 0.658 0.601 ...
##   ..$ .group           : chr [1:14535] "1" "1" "1" "1" ...
##   ..$ loc              : num [1:14535, 1:2] 1 4 6 6 9 14 14 14 18 20 ...
##   ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##  $ index:List of 3
##   ..$ field      : int [1:28676] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ field.group: int [1:28676] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ field.repl : int [1:28676] 1 1 1 1 1 1 1 1 1 1 ...
##   ..- attr(*, "class")= chr [1:2] "inla_rspde_index" "list"
##   ..- attr(*, "rspde.order")= num 0
##   ..- attr(*, "integer_nu")= logi TRUE
##   ..- attr(*, "n.mesh")= int 7169
##   ..- attr(*, "name")= chr "field"
##   ..- attr(*, "n.group")= int 1
##   ..- attr(*, "n.repl")= int 4
##  $ repl : chr [1:14535] "1" "1" "1" "1" ...
##  $ basis:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. ..@ i       : int [1:87210] 0 555 1905 1906 0 1050 1471 1472 1473 1905 ...
##   .. ..@ p       : int [1:86029] 0 4 11 11 11 11 12 13 15 15 ...
##   .. ..@ Dim     : int [1:2] 14535 86028
##   .. ..@ Dimnames:List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : NULL
##   .. ..@ x       : num [1:87210] 0.563 0.0495 0.3595 0.7935 0.437 ...
##   .. ..@ factors : list()
cmp_nonstat = speed ~ -1 +
  Intercept(1) +
  SpeedLimit +
  field(loc, model = rspde_model_nonstat,
        replicate = data_rspde_bru_nonstat[["repl"]])

rspde_fit_nonstat <-
  bru(cmp_nonstat,
      data = data_rspde_bru_nonstat[["data"]],
      family = "T",
      options = list(verbose = FALSE)
  )
str(rspde_fit_nonstat)
## List of 56
##  $ names.fixed                : chr [1:2] "Intercept" "SpeedLimit"
##  $ summary.fixed              :'data.frame': 2 obs. of  7 variables:
##   ..$ mean      : num [1:2] 17.08 3.11
##   ..$ sd        : num [1:2] 0.0972 0.1426
##   ..$ 0.025quant: num [1:2] 16.89 2.83
##   ..$ 0.5quant  : num [1:2] 17.08 3.11
##   ..$ 0.975quant: num [1:2] 17.27 3.39
##   ..$ mode      : num [1:2] 17.08 3.11
##   ..$ kld       : num [1:2] 5.87e-11 5.52e-11
##  $ marginals.fixed            :List of 2
##   ..$ Intercept : num [1:43, 1:2] 16.7 16.7 16.8 16.9 16.9 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ SpeedLimit: num [1:43, 1:2] 2.5 2.58 2.67 2.78 2.83 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ summary.lincomb            :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb          : NULL
##  $ size.lincomb               : NULL
##  $ summary.lincomb.derived    :'data.frame': 0 obs. of  0 variables
##  $ marginals.lincomb.derived  : NULL
##  $ size.lincomb.derived       : NULL
##  $ mlik                       : num [1:2, 1] -108640 -108633
##   ..- attr(*, "dimnames")=List of 2
##   .. ..$ : chr [1:2] "log marginal-likelihood (integration)" "log marginal-likelihood (Gaussian)"
##   .. ..$ : NULL
##  $ cpo                        :List of 3
##   ..$ cpo    : logi(0) 
##   ..$ pit    : logi(0) 
##   ..$ failure: logi(0) 
##  $ gcpo                       :List of 5
##   ..$ gcpo  : NULL
##   ..$ kld   : NULL
##   ..$ mean  : NULL
##   ..$ sd    : NULL
##   ..$ groups: NULL
##  $ po                         :List of 1
##   ..$ po: num [1:14535] 0.00517 0.05094 0.02753 0.00878 0.01029 ...
##  $ waic                       :List of 4
##   ..$ waic       : num 116662
##   ..$ p.eff      : num 1257
##   ..$ local.waic : num [1:14535] 10.68 6.01 7.55 10.03 9.48 ...
##   ..$ local.p.eff: num [1:14535] 0.0776 0.0258 0.1805 0.2791 0.1618 ...
##  $ residuals                  :List of 1
##   ..$ deviance.residuals: num [1:14535] -2.216 -0.404 1.288 0 -1.903 ...
##  $ model.random               : chr "CGeneric"
##  $ summary.random             :List of 1
##   ..$ field:'data.frame':    86028 obs. of  8 variables:
##   .. ..$ ID        : num [1:86028] 1 2 3 4 5 6 7 8 9 10 ...
##   .. ..$ mean      : num [1:86028] 0.124222 0.116687 -0.000051 0.012696 -0.000889 ...
##   .. ..$ sd        : num [1:86028] 0.91 0.716 0.526 0.591 0.791 ...
##   .. ..$ 0.025quant: num [1:86028] -1.66 -1.29 -1.03 -1.15 -1.55 ...
##   .. ..$ 0.5quant  : num [1:86028] 0.124222 0.116687 -0.000051 0.012696 -0.000889 ...
##   .. ..$ 0.975quant: num [1:86028] 1.91 1.52 1.03 1.17 1.55 ...
##   .. ..$ mode      : num [1:86028] 0.124222 0.116687 -0.000051 0.012696 -0.000889 ...
##   .. ..$ kld       : num [1:86028] 5.51e-11 5.51e-11 5.51e-11 5.51e-11 5.51e-11 ...
##  $ marginals.random           :List of 1
##   ..$ field:List of 86028
##   .. ..$ index.1    : num [1:43, 1:2] -3.75 -3.26 -2.69 -1.99 -1.66 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.2    : num [1:43, 1:2] -2.93 -2.55 -2.1 -1.55 -1.29 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.3    : num [1:43, 1:2] -2.24 -1.96 -1.63 -1.22 -1.03 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.4    : num [1:43, 1:2] -2.51 -2.19 -1.81 -1.36 -1.15 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.5    : num [1:43, 1:2] -3.37 -2.94 -2.45 -1.84 -1.55 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.6    : num [1:43, 1:2] -3.57 -3.12 -2.6 -1.96 -1.66 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.7    : num [1:43, 1:2] -3.23 -2.81 -2.31 -1.71 -1.42 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.8    : num [1:43, 1:2] -3.48 -3 -2.45 -1.78 -1.46 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.9    : num [1:43, 1:2] -2.097 -1.83 -1.521 -1.145 -0.964 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.10   : num [1:43, 1:2] -3.98 -3.47 -2.89 -2.17 -1.83 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.11   : num [1:43, 1:2] -2.85 -2.49 -2.07 -1.56 -1.31 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.12   : num [1:43, 1:2] -3.43 -2.99 -2.49 -1.88 -1.58 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.13   : num [1:43, 1:2] -2.73 -2.38 -1.97 -1.46 -1.22 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.14   : num [1:43, 1:2] -3.02 -2.64 -2.2 -1.66 -1.41 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.15   : num [1:43, 1:2] -2.63 -2.29 -1.9 -1.42 -1.18 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.16   : num [1:43, 1:2] -2.81 -2.44 -2.01 -1.49 -1.24 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.17   : num [1:43, 1:2] -2.414 -2.073 -1.679 -1.199 -0.968 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.18   : num [1:43, 1:2] -2.98 -2.6 -2.15 -1.61 -1.36 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.19   : num [1:43, 1:2] -2.85 -2.47 -2.03 -1.49 -1.23 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.20   : num [1:43, 1:2] -3.51 -3.07 -2.55 -1.92 -1.62 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.21   : num [1:43, 1:2] -5.16 -4.5 -3.74 -2.82 -2.38 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.22   : num [1:43, 1:2] -4.18 -3.65 -3.03 -2.28 -1.92 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.23   : num [1:43, 1:2] -3.02 -2.63 -2.19 -1.65 -1.39 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.24   : num [1:43, 1:2] -4.38 -3.82 -3.18 -2.39 -2.01 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.25   : num [1:43, 1:2] -4.66 -4.01 -3.26 -2.35 -1.91 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.26   : num [1:43, 1:2] -3.37 -2.86 -2.26 -1.53 -1.17 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.27   : num [1:43, 1:2] -4.13 -3.61 -3 -2.26 -1.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.28   : num [1:43, 1:2] -3.45 -3.01 -2.5 -1.88 -1.59 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.29   : num [1:43, 1:2] -5.28 -4.6 -3.81 -2.85 -2.39 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.30   : num [1:43, 1:2] -3.53 -3.01 -2.39 -1.65 -1.3 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.31   : num [1:43, 1:2] -3.65 -3.19 -2.65 -2 -1.68 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.32   : num [1:43, 1:2] -3.72 -3.24 -2.7 -2.03 -1.71 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.33   : num [1:43, 1:2] -4.05 -3.54 -2.94 -2.21 -1.86 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.34   : num [1:43, 1:2] -3.5 -3.06 -2.55 -1.92 -1.62 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.35   : num [1:43, 1:2] -3.11 -2.71 -2.25 -1.7 -1.43 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.36   : num [1:43, 1:2] -3.58 -3.12 -2.59 -1.95 -1.65 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.37   : num [1:43, 1:2] -2.76 -2.41 -2 -1.51 -1.27 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.38   : num [1:43, 1:2] -3.09 -2.7 -2.24 -1.69 -1.42 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.39   : num [1:43, 1:2] -5.05 -4.41 -3.66 -2.76 -2.32 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.40   : num [1:43, 1:2] -3.59 -3.13 -2.6 -1.96 -1.65 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.41   : num [1:43, 1:2] -3.46 -3.03 -2.52 -1.9 -1.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.42   : num [1:43, 1:2] -4.57 -3.99 -3.32 -2.5 -2.11 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.43   : num [1:43, 1:2] -5.7 -4.98 -4.14 -3.13 -2.64 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.44   : num [1:43, 1:2] -3.18 -2.78 -2.31 -1.74 -1.46 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.45   : num [1:43, 1:2] -3.91 -3.42 -2.84 -2.14 -1.8 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.46   : num [1:43, 1:2] -4.77 -4.19 -3.53 -2.72 -2.34 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.47   : num [1:43, 1:2] -3.82 -3.36 -2.82 -2.17 -1.86 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.48   : num [1:43, 1:2] -3.46 -2.98 -2.42 -1.74 -1.41 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.49   : num [1:43, 1:2] -3.83 -3.28 -2.64 -1.87 -1.5 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.50   : num [1:43, 1:2] -2.85 -2.48 -2.04 -1.51 -1.26 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.51   : num [1:43, 1:2] -2.64 -2.3 -1.89 -1.4 -1.17 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.52   : num [1:43, 1:2] -5.38 -4.72 -3.95 -3.01 -2.56 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.53   : num [1:43, 1:2] -3.51 -3.08 -2.58 -1.98 -1.69 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.54   : num [1:43, 1:2] -3.63 -3.18 -2.66 -2.02 -1.72 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.55   : num [1:43, 1:2] -4.01 -3.5 -2.91 -2.19 -1.85 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.56   : num [1:43, 1:2] -4.13 -3.62 -3.04 -2.32 -1.98 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.57   : num [1:43, 1:2] -3.87 -3.4 -2.85 -2.17 -1.85 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.58   : num [1:43, 1:2] -4.03 -3.54 -2.97 -2.28 -1.95 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.59   : num [1:43, 1:2] -2.71 -2.36 -1.96 -1.48 -1.24 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.60   : num [1:43, 1:2] -3.34 -2.92 -2.43 -1.84 -1.55 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.61   : num [1:43, 1:2] -3.36 -2.93 -2.44 -1.83 -1.54 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.62   : num [1:43, 1:2] -2.115 -1.842 -1.526 -1.141 -0.956 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.63   : num [1:43, 1:2] -3.31 -2.89 -2.4 -1.81 -1.52 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.64   : num [1:43, 1:2] -3.02 -2.64 -2.19 -1.65 -1.39 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.65   : num [1:43, 1:2] -2.67 -2.33 -1.93 -1.45 -1.22 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.66   : num [1:43, 1:2] -2.36 -2.05 -1.7 -1.27 -1.06 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.67   : num [1:43, 1:2] -2.444 -2.095 -1.69 -1.197 -0.961 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.68   : num [1:43, 1:2] -3.6 -3.15 -2.64 -2.02 -1.72 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.69   : num [1:43, 1:2] -4.05 -3.54 -2.96 -2.24 -1.9 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.70   : num [1:43, 1:2] -3.28 -2.85 -2.37 -1.77 -1.49 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.71   : num [1:43, 1:2] -4.77 -4.16 -3.45 -2.59 -2.18 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.72   : num [1:43, 1:2] -3.43 -2.95 -2.4 -1.72 -1.4 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.73   : num [1:43, 1:2] -5.57 -4.78 -3.86 -2.74 -2.2 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.74   : num [1:43, 1:2] -2.794 -2.325 -1.781 -1.119 -0.802 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.75   : num [1:43, 1:2] -6.49 -5.71 -4.8 -3.7 -3.17 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.76   : num [1:43, 1:2] -6.19 -5.46 -4.61 -3.58 -3.08 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.77   : num [1:43, 1:2] -6.21 -5.4 -4.46 -3.32 -2.77 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.78   : num [1:43, 1:2] -3.49 -3.04 -2.52 -1.88 -1.58 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.79   : num [1:43, 1:2] -3.53 -3.1 -2.6 -1.99 -1.7 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.80   : num [1:43, 1:2] -3.97 -3.48 -2.91 -2.22 -1.88 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.81   : num [1:43, 1:2] -3.38 -2.96 -2.48 -1.89 -1.6 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.82   : num [1:43, 1:2] -3.44 -3 -2.48 -1.85 -1.55 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.83   : num [1:43, 1:2] -3.92 -3.44 -2.88 -2.2 -1.87 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.84   : num [1:43, 1:2] -2.93 -2.56 -2.13 -1.6 -1.35 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.85   : num [1:43, 1:2] -3.95 -3.44 -2.86 -2.15 -1.81 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.86   : num [1:43, 1:2] -3.24 -2.83 -2.35 -1.77 -1.49 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.87   : num [1:43, 1:2] -3.89 -3.4 -2.82 -2.13 -1.79 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.88   : num [1:43, 1:2] -3.43 -2.98 -2.46 -1.82 -1.51 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.89   : num [1:43, 1:2] -5.22 -4.55 -3.77 -2.82 -2.36 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.90   : num [1:43, 1:2] -3.75 -3.28 -2.73 -2.07 -1.75 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.91   : num [1:43, 1:2] -3.77 -3.3 -2.76 -2.09 -1.77 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.92   : num [1:43, 1:2] -3.66 -3.19 -2.65 -1.98 -1.67 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.93   : num [1:43, 1:2] -3.82 -3.34 -2.78 -2.11 -1.78 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.94   : num [1:43, 1:2] -3.51 -3.06 -2.55 -1.92 -1.62 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.95   : num [1:43, 1:2] -3.13 -2.73 -2.27 -1.71 -1.44 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.96   : num [1:43, 1:2] -1.617 -1.412 -1.174 -0.885 -0.746 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.97   : num [1:43, 1:2] -1.991 -1.739 -1.447 -1.092 -0.921 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.98   : num [1:43, 1:2] -3.18 -2.78 -2.31 -1.74 -1.46 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. ..$ index.99   : num [1:43, 1:2] -4.01 -3.5 -2.91 -2.19 -1.85 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : NULL
##   .. .. .. ..$ : chr [1:2] "x" "y"
##   .. .. [list output truncated]
##  $ size.random                :List of 1
##   ..$ :List of 5
##   .. ..$ n     : num 21507
##   .. ..$ N     : num 21507
##   .. ..$ Ntotal: num 86028
##   .. ..$ ngroup: num 1
##   .. ..$ nrep  : num 4
##  $ summary.linear.predictor   :'data.frame': 100565 obs. of  7 variables:
##   ..$ mean      : num [1:100565] 17.6 14.8 16.8 17.4 13.3 ...
##   ..$ sd        : num [1:100565] 1.96 2.06 2.67 3.44 2.51 ...
##   ..$ 0.025quant: num [1:100565] 13.7 10.79 11.53 10.63 8.41 ...
##   ..$ 0.5quant  : num [1:100565] 17.6 14.8 16.8 17.4 13.3 ...
##   ..$ 0.975quant: num [1:100565] 21.4 18.9 22 24.1 18.2 ...
##   ..$ mode      : num [1:100565] 17.6 14.8 16.8 17.4 13.3 ...
##   ..$ kld       : num [1:100565] 5.53e-11 5.53e-11 5.53e-11 5.53e-11 5.53e-11 ...
##  $ marginals.linear.predictor : NULL
##  $ summary.fitted.values      :'data.frame': 100565 obs. of  6 variables:
##   ..$ mean      : num [1:100565] 17.6 14.8 16.8 17.4 13.3 ...
##   ..$ sd        : num [1:100565] 1.96 2.06 2.67 3.44 2.51 ...
##   ..$ 0.025quant: num [1:100565] 13.7 10.79 11.53 10.63 8.41 ...
##   ..$ 0.5quant  : num [1:100565] 17.6 14.8 16.8 17.4 13.3 ...
##   ..$ 0.975quant: num [1:100565] 21.4 18.9 22 24.1 18.2 ...
##   ..$ mode      : num [1:100565] 17.6 14.8 16.8 17.4 13.3 ...
##  $ marginals.fitted.values    : NULL
##  $ size.linear.predictor      :List of 5
##   ..$ n     : num 86030
##   ..$ N     : num 86030
##   ..$ Ntotal: num 100565
##   ..$ ngroup: num 1
##   ..$ nrep  : num 2
##  $ summary.hyperpar           :'data.frame': 7 obs. of  6 variables:
##   ..$ mean      : num [1:7] 0.00168 2.13535 2.86143 -1.00012 0.34603 ...
##   ..$ sd        : num [1:7] 5.63e-07 4.50e-05 3.52e-04 2.80e-04 2.10e-04 ...
##   ..$ 0.025quant: num [1:7] 0.00167 2.13527 2.86065 -1.00067 0.34561 ...
##   ..$ 0.5quant  : num [1:7] 0.00168 2.13535 2.86146 -1.00012 0.34603 ...
##   ..$ 0.975quant: num [1:7] 0.00168 2.13544 2.86202 -0.99956 0.34644 ...
##   ..$ mode      : num [1:7] 0.00168 2.13534 2.86162 -1.00013 0.34604 ...
##  $ marginals.hyperpar         :List of 7
##   ..$ precision for the student-t observations: num [1:43, 1:2] 0.00167 0.00167 0.00167 0.00167 0.00167 ...
##   .. ..- attr(*, "hyperid")= chr "100001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ degrees of freedom for student-t        : num [1:43, 1:2] 2.14 2.14 2.14 2.14 2.14 ...
##   .. ..- attr(*, "hyperid")= chr "100002|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                        : num [1:43, 1:2] 2.86 2.86 2.86 2.86 2.86 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                        : num [1:43, 1:2] -1 -1 -1 -1 -1 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta3 for field                        : num [1:43, 1:2] 0.345 0.345 0.345 0.346 0.346 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta4 for field                        : num [1:43, 1:2] 0.429 0.43 0.43 0.43 0.43 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta5 for field                        : num [1:43, 1:2] 0.122 0.122 0.122 0.123 0.123 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ internal.summary.hyperpar  :'data.frame': 7 obs. of  6 variables:
##   ..$ mean      : num [1:7] -6.392 -2 2.861 -1 0.346 ...
##   ..$ sd        : num [1:7] 0.000336 0.000332 0.000352 0.00028 0.00021 ...
##   ..$ 0.025quant: num [1:7] -6.392 -2 2.861 -1.001 0.346 ...
##   ..$ 0.5quant  : num [1:7] -6.392 -2 2.861 -1 0.346 ...
##   ..$ 0.975quant: num [1:7] -6.391 -1.999 2.862 -1 0.346 ...
##   ..$ mode      : num [1:7] -6.392 -2 2.862 -1 0.346 ...
##  $ internal.marginals.hyperpar:List of 7
##   ..$ log precision for the student-t observations: num [1:43, 1:2] -6.39 -6.39 -6.39 -6.39 -6.39 ...
##   .. ..- attr(*, "hyperid")= chr "100001|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ dof_intern for student-t                    : num [1:43, 1:2] -2 -2 -2 -2 -2 ...
##   .. ..- attr(*, "hyperid")= chr "100002|INLA.Data1"
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta1 for field                            : num [1:43, 1:2] 2.86 2.86 2.86 2.86 2.86 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta2 for field                            : num [1:43, 1:2] -1 -1 -1 -1 -1 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta3 for field                            : num [1:43, 1:2] 0.345 0.345 0.345 0.346 0.346 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta4 for field                            : num [1:43, 1:2] 0.429 0.43 0.43 0.43 0.43 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##   ..$ Theta5 for field                            : num [1:43, 1:2] 0.122 0.122 0.122 0.123 0.123 ...
##   .. ..- attr(*, "hyperid")= chr ""
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : NULL
##   .. .. ..$ : chr [1:2] "x" "y"
##  $ offset.linear.predictor    : num [1:100565] 0 0 0 0 0 0 0 0 0 0 ...
##  $ model.spde2.blc            : NULL
##  $ summary.spde2.blc          : list()
##  $ marginals.spde2.blc        : NULL
##  $ size.spde2.blc             : NULL
##  $ model.spde3.blc            : NULL
##  $ summary.spde3.blc          : list()
##  $ marginals.spde3.blc        : NULL
##  $ size.spde3.blc             : NULL
##  $ logfile                    : chr [1:2826] "[PANUA] PARDISO License is expired." "[PANUA] Please obtain a new PARDISO license at https://www.panua.ch/products/pardiso" "        Read ntt 24 1 with max.threads 24" "        Found num.threads = 24:1 max_threads = 24" ...
##  $ misc                       :List of 22
##   ..$ cov.intern                        : num [1:7, 1:7] 1.32e-07 2.57e-08 3.57e-09 -9.23e-09 1.01e-08 ...
##   ..$ cor.intern                        : num [1:7, 1:7] 1 0.2054 0.0289 -0.0744 0.1222 ...
##   ..$ cov.intern.eigenvalues            : num [1:7] 4.94e-08 4.55e-08 9.39e-08 1.15e-07 1.02e-07 ...
##   ..$ cov.intern.eigenvectors           : num [1:7, 1:7] -0.207 0.122 -0.237 -0.363 0.722 ...
##   ..$ reordering                        : int [1:86030] 36761 36739 42746 40348 40290 40326 40367 40469 40318 40319 ...
##   ..$ theta.tags                        : chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   ..$ log.posterior.mode                : num -108583
##   ..$ stdev.corr.negative               : num [1:7] 1.214 1.315 0.878 0.565 1.895 ...
##   ..$ stdev.corr.positive               : num [1:7] 0.824 0.761 1.14 1.769 0.528 ...
##   ..$ to.theta                          :List of 7
##   .. ..$ log precision for the student-t observations:function (x)  
##   .. ..$ dof_intern for student-t                    :function (x)  
##   .. ..$ Theta1 for field                            :function (x)  
##   .. ..$ Theta2 for field                            :function (x)  
##   .. ..$ Theta3 for field                            :function (x)  
##   .. ..$ Theta4 for field                            :function (x)  
##   .. ..$ Theta5 for field                            :function (x)  
##   ..$ from.theta                        :List of 7
##   .. ..$ log precision for the student-t observations:function (x)  
##   .. ..$ dof_intern for student-t                    :function (x)  
##   .. ..$ Theta1 for field                            :function (x)  
##   .. ..$ Theta2 for field                            :function (x)  
##   .. ..$ Theta3 for field                            :function (x)  
##   .. ..$ Theta4 for field                            :function (x)  
##   .. ..$ Theta5 for field                            :function (x)  
##   ..$ mode.status                       : num 0
##   ..$ lincomb.derived.correlation.matrix: NULL
##   ..$ lincomb.derived.covariance.matrix : NULL
##   ..$ opt.directions                    : num [1:7, 1:7] 0.227 -0.254 0.675 -0.185 -0.153 ...
##   .. ..- attr(*, "dimnames")=List of 2
##   .. .. ..$ : chr [1:7] "theta:1" "theta:2" "theta:3" "theta:4" ...
##   .. .. ..$ : chr [1:7] "dir:1" "dir:2" "dir:3" "dir:4" ...
##   ..$ configs                           :List of 17
##   .. ..$ .preopt          : logi TRUE
##   .. ..$ lite             : logi FALSE
##   .. ..$ mpred            : int 14535
##   .. ..$ npred            : int 86030
##   .. ..$ mnpred           : int 100565
##   .. ..$ Npred            : int 14535
##   .. ..$ n                : int 86030
##   .. ..$ nz               : int 656168
##   .. ..$ prior_nz         : int 542050
##   .. ..$ ntheta           : int 7
##   .. ..$ nconfig          : int 79
##   .. ..$ offsets          : num [1:100565] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ contents         :List of 3
##   .. .. ..$ tag   : chr [1:5] "APredictor" "Predictor" "field" "Intercept" ...
##   .. .. ..$ start : int [1:5] 1 14536 100566 186594 186595
##   .. .. ..$ length: int [1:5] 14535 86030 86028 1 1
##   .. ..$ A                :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:86030] 2 3 4 5 6 7 8 9 10 11 ...
##   .. .. .. ..@ j       : int [1:86030] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:86030] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ pA               :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:116238] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:116238] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 14535 86030
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:116238] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ config           :List of 79
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -56
##   .. .. .. ..$ log.posterior.orig: num -50.2
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.14e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.14e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.833 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.69 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.14e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -58.2
##   .. .. .. ..$ log.posterior.orig: num -53.9
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.56e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.56e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.73 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.832 0.327 0.514 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.7 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.56e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.862 -1 0.345 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -49.1
##   .. .. .. ..$ log.posterior.orig: num -44.8
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -2.53e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -2.53e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.92 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.835 0.328 0.516 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.68 13.92 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -2.53e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -59.2
##   .. .. .. ..$ log.posterior.orig: num -54.9
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -4.03e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -4.03e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.73 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.831 0.327 0.514 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.7 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -4.03e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.347 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -46.5
##   .. .. .. ..$ log.posterior.orig: num -42.1
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -1.61e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -1.61e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.91 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.836 0.328 0.516 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.68 13.91 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -1.61e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -1.999 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -50.6
##   .. .. .. ..$ log.posterior.orig: num -46.2
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.16e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.16e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.833 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.69 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.16e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2.001 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -57.6
##   .. .. .. ..$ log.posterior.orig: num -53.2
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.13e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.13e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.833 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.69 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1712 0.1548 -0.1618 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.13e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1.001 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -19
##   .. .. .. ..$ log.posterior.orig: num -14.6
##   .. .. .. ..$ mean              : num [1:86030] 1.26e-01 1.18e-01 -7.14e-06 1.28e-02 -8.81e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.26e-01 1.18e-01 -7.14e-06 1.28e-02 -8.81e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.64 -1.36 4.69 13.85 -7.68 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.838 0.329 0.518 0.28 0.219 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.63 -1.36 4.66 13.85 -7.68 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.26e-01 1.18e-01 -7.14e-06 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -65.9
##   .. .. .. ..$ log.posterior.orig: num -61.6
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.91e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.91e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.73 13.98 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.831 0.326 0.514 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.7 13.98 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.91e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -68.5
##   .. .. .. ..$ log.posterior.orig: num -64.2
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -2.56e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -2.56e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.92 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.834 0.328 0.516 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.68 13.92 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -2.56e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -4.36
##   .. .. .. ..$ log.posterior.orig: num 0
##   .. .. .. ..$ mean              : num [1:86030] 1.24e-01 1.17e-01 -5.23e-05 1.27e-02 -8.89e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.24e-01 1.17e-01 -5.23e-05 1.27e-02 -8.89e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.76 14.06 -7.8 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.828 0.325 0.512 0.276 0.216 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.66 -1.38 4.73 14.06 -7.8 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.24e-01 1.17e-01 -5.23e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -61.1
##   .. .. .. ..$ log.posterior.orig: num -56.7
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.87e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.87e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.94 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.834 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.69 13.94 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.87e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -1.999 2.861 -0.999 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -40.4
##   .. .. .. ..$ log.posterior.orig: num -36
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.73e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.73e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.73 13.98 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.831 0.326 0.514 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.7 13.98 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.73e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -60.9
##   .. .. .. ..$ log.posterior.orig: num -56.5
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.96e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.96e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.94 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.833 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.69 13.94 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1548 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.96e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.393 -2 2.861 -0.999 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -41.1
##   .. .. .. ..$ log.posterior.orig: num -36.8
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.52e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.52e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.73 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.832 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.7 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.52e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -0.999 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -49.7
##   .. .. .. ..$ log.posterior.orig: num -45.4
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.76e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.76e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.94 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.834 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.69 13.94 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.76e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -57.2
##   .. .. .. ..$ log.posterior.orig: num -52.9
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -2.55e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -2.55e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.93 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.834 0.327 0.516 0.279 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.69 13.93 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1712 0.1548 -0.1618 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -2.55e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2.001 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -57.6
##   .. .. .. ..$ log.posterior.orig: num -53.2
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -2.44e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -2.44e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.92 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.834 0.328 0.516 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.68 13.92 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -2.44e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -65.1
##   .. .. .. ..$ log.posterior.orig: num -60.7
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -2.23e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -2.23e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.92 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.835 0.328 0.516 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.68 13.92 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1712 0.1548 -0.1618 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -2.23e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -7.75
##   .. .. .. ..$ log.posterior.orig: num -3.39
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.57e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.57e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.94 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.834 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.69 13.94 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.57e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -15.2
##   .. .. .. ..$ log.posterior.orig: num -10.9
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -2.36e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -2.36e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.93 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.834 0.327 0.516 0.279 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.69 13.93 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1548 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -2.36e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2.001 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -15.6
##   .. .. .. ..$ log.posterior.orig: num -11.2
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -2.24e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -2.24e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.93 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.834 0.328 0.516 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.68 13.93 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -2.24e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -23.1
##   .. .. .. ..$ log.posterior.orig: num -18.7
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -2.03e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -2.03e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.92 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.835 0.328 0.516 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.68 13.92 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1712 0.1548 -0.1618 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -2.03e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -0.999 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -22.9
##   .. .. .. ..$ log.posterior.orig: num -18.5
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.78e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.78e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.73 13.99 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.831 0.326 0.514 0.277 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.71 13.99 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.78e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -1.999 2.862 -0.999 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -30.3
##   .. .. .. ..$ log.posterior.orig: num -26
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.57e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.57e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.73 13.98 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.831 0.326 0.514 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.7 13.98 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.57e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -0.999 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -30.7
##   .. .. .. ..$ log.posterior.orig: num -26.3
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.46e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.46e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.73 13.98 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.832 0.327 0.514 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.7 13.98 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.46e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -38.1
##   .. .. .. ..$ log.posterior.orig: num -33.8
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.25e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.25e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.73 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.832 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.7 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.25e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -1.999 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -29.4
##   .. .. .. ..$ log.posterior.orig: num -25
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -1.56e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -1.56e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.7 13.89 -7.71 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.836 0.328 0.517 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.67 13.89 -7.71 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -1.56e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -1.999 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -36.8
##   .. .. .. ..$ log.posterior.orig: num -32.5
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -1.35e-05 1.28e-02 -8.84e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -1.35e-05 1.28e-02 -8.84e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.64 -1.37 4.7 13.88 -7.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.837 0.328 0.517 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.67 13.88 -7.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -1.35e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -37.2
##   .. .. .. ..$ log.posterior.orig: num -32.8
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -1.24e-05 1.28e-02 -8.83e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -1.24e-05 1.28e-02 -8.83e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.64 -1.37 4.69 13.88 -7.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.837 0.328 0.517 0.28 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.67 13.88 -7.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -1.24e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1.001 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -44.7
##   .. .. .. ..$ log.posterior.orig: num -40.3
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -1.02e-05 1.28e-02 -8.83e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -1.02e-05 1.28e-02 -8.83e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.64 -1.36 4.69 13.87 -7.69 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.837 0.329 0.518 0.28 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.36 4.66 13.87 -7.69 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -1.02e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.861 -0.999 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -30.3
##   .. .. .. ..$ log.posterior.orig: num -26
##   .. .. .. ..$ mean              : num [1:86030] 1.24e-01 1.17e-01 -4.69e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.24e-01 1.17e-01 -4.69e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.74 14.02 -7.78 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.829 0.326 0.513 0.277 0.216 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.71 14.02 -7.78 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.24e-01 1.17e-01 -4.69e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -37.8
##   .. .. .. ..$ log.posterior.orig: num -33.4
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -4.48e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -4.48e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.74 14.01 -7.77 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.83 0.326 0.513 0.277 0.216 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.71 14.01 -7.77 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1712 0.1548 -0.1618 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -4.48e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2.001 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -38.1
##   .. .. .. ..$ log.posterior.orig: num -33.8
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -4.36e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -4.36e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.74 14 -7.77 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.83 0.326 0.514 0.277 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.71 14 -7.77 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -4.36e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -45.6
##   .. .. .. ..$ log.posterior.orig: num -41.2
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -4.15e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -4.15e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.73 13.99 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.831 0.326 0.514 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.71 13.99 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1712 0.1548 -0.1618 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -4.15e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -36.8
##   .. .. .. ..$ log.posterior.orig: num -32.4
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -2.47e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -2.47e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.92 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.835 0.328 0.516 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.68 13.92 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -2.47e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -44.3
##   .. .. .. ..$ log.posterior.orig: num -39.9
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -2.26e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -2.26e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.91 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.835 0.328 0.516 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.68 13.91 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -2.26e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -44.6
##   .. .. .. ..$ log.posterior.orig: num -40.3
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -2.15e-05 1.27e-02 -8.83e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -2.15e-05 1.27e-02 -8.83e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.7 13.9 -7.71 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.835 0.328 0.517 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.67 13.9 -7.71 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -2.15e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.862 -1.001 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -52.1
##   .. .. .. ..$ log.posterior.orig: num -47.8
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -1.93e-05 1.28e-02 -8.83e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -1.93e-05 1.28e-02 -8.83e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.7 13.89 -7.71 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.836 0.328 0.517 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.67 13.89 -7.71 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1548 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -1.93e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -0.999 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -51.9
##   .. .. .. ..$ log.posterior.orig: num -47.6
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.69e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.69e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.832 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.7 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.69e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -1.999 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -59.4
##   .. .. .. ..$ log.posterior.orig: num -55
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.48e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.48e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.96 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.832 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.69 13.96 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.48e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -59.8
##   .. .. .. ..$ log.posterior.orig: num -55.4
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.37e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.37e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.833 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.69 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.37e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -67.2
##   .. .. .. ..$ log.posterior.orig: num -62.9
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.15e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.15e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.94 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.833 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.69 13.94 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.15e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -1.999 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -9.92
##   .. .. .. ..$ log.posterior.orig: num -5.56
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.49e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.49e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.73 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.832 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.7 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.49e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -1.999 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -17.4
##   .. .. .. ..$ log.posterior.orig: num -13
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.28e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.28e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.96 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.832 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.69 13.96 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.28e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -17.8
##   .. .. .. ..$ log.posterior.orig: num -13.4
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.17e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.17e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.833 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.69 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.17e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -25.2
##   .. .. .. ..$ log.posterior.orig: num -20.9
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.96e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.96e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.94 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.833 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.69 13.94 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.96e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -0.999 0.347 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -28.9
##   .. .. .. ..$ log.posterior.orig: num -24.6
##   .. .. .. ..$ mean              : num [1:86030] 1.24e-01 1.17e-01 -4.16e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.24e-01 1.17e-01 -4.16e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.74 14.01 -7.77 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.83 0.326 0.513 0.277 0.216 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.71 14.01 -7.77 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.24e-01 1.17e-01 -4.16e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.861 -1 0.347 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -36.4
##   .. .. .. ..$ log.posterior.orig: num -32
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.95e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.95e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.74 14.01 -7.77 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.83 0.326 0.513 0.277 0.216 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.71 14.01 -7.77 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1712 0.1548 -0.1618 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.95e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2.001 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -36.8
##   .. .. .. ..$ log.posterior.orig: num -32.4
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.84e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.84e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.74 14 -7.77 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.831 0.326 0.514 0.277 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.71 14 -7.77 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.84e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -44.2
##   .. .. .. ..$ log.posterior.orig: num -39.9
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.63e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.63e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.73 13.99 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.831 0.326 0.514 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.7 13.99 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1712 0.1548 -0.1618 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.63e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -35.4
##   .. .. .. ..$ log.posterior.orig: num -31.1
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -1.94e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -1.94e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.91 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.835 0.328 0.516 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.68 13.91 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -1.94e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.861 -1.001 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -42.9
##   .. .. .. ..$ log.posterior.orig: num -38.5
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -1.73e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -1.73e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.7 13.9 -7.71 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.836 0.328 0.516 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.68 13.9 -7.71 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -1.73e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -43.3
##   .. .. .. ..$ log.posterior.orig: num -38.9
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -1.62e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -1.62e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.7 13.9 -7.71 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.836 0.328 0.517 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.67 13.9 -7.71 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -1.62e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.862 -1.001 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -50.7
##   .. .. .. ..$ log.posterior.orig: num -46.4
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.18e-01 -1.41e-05 1.28e-02 -8.84e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.18e-01 -1.41e-05 1.28e-02 -8.84e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.64 -1.37 4.7 13.89 -7.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.836 0.328 0.517 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.67 13.89 -7.7 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1548 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.18e-01 -1.41e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -50.6
##   .. .. .. ..$ log.posterior.orig: num -46.2
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.16e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.16e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.96 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.833 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.7 13.96 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.16e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -1.999 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -58
##   .. .. .. ..$ log.posterior.orig: num -53.7
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.95e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.95e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.833 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.69 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.95e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -58.4
##   .. .. .. ..$ log.posterior.orig: num -54
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.84e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.84e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.833 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.69 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.84e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -65.9
##   .. .. .. ..$ log.posterior.orig: num -61.5
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.63e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.63e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.94 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.834 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.69 13.94 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.63e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -1.999 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -8.55
##   .. .. .. ..$ log.posterior.orig: num -4.19
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.97e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.97e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.96 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.833 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.7 13.96 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.97e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -1.999 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -16
##   .. .. .. ..$ log.posterior.orig: num -11.7
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.76e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.76e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.96 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.833 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.69 13.96 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.76e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -16.4
##   .. .. .. ..$ log.posterior.orig: num -12
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.65e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.65e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.833 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.69 13.95 -7.74 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.65e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1.001 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -23.8
##   .. .. .. ..$ log.posterior.orig: num -19.5
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.43e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.43e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.94 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.834 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.69 13.94 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.43e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -58
##   .. .. .. ..$ log.posterior.orig: num -53.7
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -4.06e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -4.06e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.73 13.99 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.831 0.326 0.514 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.7 13.99 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -4.06e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -65.5
##   .. .. .. ..$ log.posterior.orig: num -61.1
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.85e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.85e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.73 13.98 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.831 0.326 0.514 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.7 13.98 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.85e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2.001 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -65.9
##   .. .. .. ..$ log.posterior.orig: num -61.5
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.74e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.74e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.37 4.73 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.832 0.327 0.514 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.7 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.74e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -73.3
##   .. .. .. ..$ log.posterior.orig: num -69
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.53e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.53e-05 1.27e-02 -8.87e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.96 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.832 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.7 13.96 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1618 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.53e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.86 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -16
##   .. .. .. ..$ log.posterior.orig: num -11.6
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.87e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.87e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.73 13.99 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.831 0.326 0.514 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.7 13.99 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.87e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -23.5
##   .. .. .. ..$ log.posterior.orig: num -19.1
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.66e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.66e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.73 13.98 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.831 0.326 0.514 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.7 13.98 -7.76 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.66e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -23.8
##   .. .. .. ..$ log.posterior.orig: num -19.5
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.55e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.55e-05 1.27e-02 -8.86e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.37 4.73 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.832 0.327 0.514 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.7 13.97 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.55e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -2 2.861 -1.001 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -31.5
##   .. .. .. ..$ log.posterior.orig: num -27.1
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -3.34e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -3.34e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.96 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.832 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.37 4.7 13.96 -7.75 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -3.34e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -0.999 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -31.1
##   .. .. .. ..$ log.posterior.orig: num -26.8
##   .. .. .. ..$ mean              : num [1:86030] 1.24e-01 1.17e-01 -5.08e-05 1.27e-02 -8.89e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.24e-01 1.17e-01 -5.08e-05 1.27e-02 -8.89e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.75 14.04 -7.79 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.828 0.325 0.512 0.277 0.216 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.66 -1.38 4.72 14.04 -7.79 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.24e-01 1.17e-01 -5.08e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -1.999 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -38.6
##   .. .. .. ..$ log.posterior.orig: num -34.2
##   .. .. .. ..$ mean              : num [1:86030] 1.24e-01 1.17e-01 -4.87e-05 1.27e-02 -8.89e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.24e-01 1.17e-01 -4.87e-05 1.27e-02 -8.89e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.75 14.03 -7.78 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.829 0.326 0.513 0.277 0.216 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.72 14.03 -7.78 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.24e-01 1.17e-01 -4.87e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -39.1
##   .. .. .. ..$ log.posterior.orig: num -34.8
##   .. .. .. ..$ mean              : num [1:86030] 1.24e-01 1.17e-01 -4.76e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.24e-01 1.17e-01 -4.76e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.74 14.02 -7.78 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.829 0.326 0.513 0.277 0.216 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.72 14.02 -7.78 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.24e-01 1.17e-01 -4.76e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -46.4
##   .. .. .. ..$ log.posterior.orig: num -42
##   .. .. .. ..$ mean              : num [1:86030] 1.24e-01 1.17e-01 -4.55e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.24e-01 1.17e-01 -4.55e-05 1.27e-02 -8.88e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.66 -1.38 4.74 14.01 -7.77 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.83 0.326 0.513 0.277 0.216 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.65 -1.38 4.71 14.01 -7.77 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0723 0.1711 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.24e-01 1.17e-01 -4.55e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -1.999 2.861 -1 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -37.6
##   .. .. .. ..$ log.posterior.orig: num -33.2
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.87e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.87e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.72 13.94 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.834 0.327 0.515 0.278 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.69 13.94 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.87e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.391 -1.999 2.861 -1.001 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -45.2
##   .. .. .. ..$ log.posterior.orig: num -40.9
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.66e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.66e-05 1.27e-02 -8.85e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.93 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.834 0.327 0.516 0.279 0.217 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.69 13.93 -7.73 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.66e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.861 -1.001 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -45.4
##   .. .. .. ..$ log.posterior.orig: num -41.1
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.55e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.55e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.92 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.834 0.328 0.516 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.68 13.92 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.55e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. ..$ :List of 15
##   .. .. .. ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1.001 0.346 ...
##   .. .. .. .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   .. .. .. ..$ log.posterior     : num -52.9
##   .. .. .. ..$ log.posterior.orig: num -48.5
##   .. .. .. ..$ mean              : num [1:86030] 1.25e-01 1.17e-01 -2.34e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ improved.mean     : num [1:86030] 1.25e-01 1.17e-01 -2.34e-05 1.27e-02 -8.84e-04 ...
##   .. .. .. ..$ skewness          : logi [1:86030] NA NA NA NA NA NA ...
##   .. .. .. ..$ Q                 :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 1.65 -1.37 4.71 13.91 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qinv              :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:656168] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:656168] 0.835 0.328 0.516 0.279 0.218 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ Qprior            :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:542050] 0 0 1 2 2 3 2 3 4 5 ...
##   .. .. .. .. .. ..@ p       : int [1:86031] 0 1 3 4 6 9 10 14 16 17 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 86030 86030
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:542050] 1.64 -1.37 4.68 13.91 -7.72 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ cpodens.moments   : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "skewness"
##   .. .. .. ..$ gcpodens.moments  : num[0 , 1:3] 
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "mean" "variance" "log.theta.correction"
##   .. .. .. ..$ arg.str           : NULL
##   .. .. .. ..$ ll.info           : num [1:14535, 1:3] -0.1415 -0.0722 0.171 0.1547 -0.1617 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:3] "gradient" "hessian" "deriv3"
##   .. .. .. ..$ APredictor        : num [1:14535, 1:2] 17.6 14.8 16.8 17.4 13.3 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. .. .. ..$ Predictor         : num [1:86030, 1:2] 1.71e+01 3.11 1.25e-01 1.17e-01 -2.34e-05 ...
##   .. .. .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..$ : chr [1:2] "mean" "variance"
##   .. ..$ max.log.posterior: num -108533
##   ..$ nfunc                             : num 818
##   ..$ warnings                          : chr "Stupid local search strategy used: This is usually a sign of a ill-defined model and/or non-informative data."
##   ..$ opt.trace                         :List of 3
##   .. ..$ f    : Named num [1:122] 1430002 1427339 1427326 1427251 847362 ...
##   .. .. ..- attr(*, "names")= chr [1:122] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ nfunc: Named int [1:122] 1 2 3 4 9 11 18 19 22 25 ...
##   .. .. ..- attr(*, "names")= chr [1:122] "iter1" "iter2" "iter3" "iter4" ...
##   .. ..$ theta: num [1:122, 1:7] 3.03e-08 3.03e-08 3.03e-08 3.03e-08 -7.45e-01 ...
##   .. .. ..- attr(*, "dimnames")=List of 2
##   .. .. .. ..$ : chr [1:122] "iter1" "iter2" "iter3" "iter4" ...
##   .. .. .. ..$ : chr [1:7] "theta1" "theta2" "theta3" "theta4" ...
##   ..$ theta.mode                        : num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   ..$ linkfunctions                     :List of 2
##   .. ..$ names: chr "identity"
##   .. ..$ link : int [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ family                            : int [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##  $ dic                        :List of 14
##   ..$ dic              : num 115977
##   ..$ p.eff            : num 588
##   ..$ mean.deviance    : num 115389
##   ..$ deviance.mean    : num 114801
##   ..$ dic.sat          : num -10124
##   ..$ mean.deviance.sat: num -10712
##   ..$ deviance.mean.sat: num -8124
##   ..$ family.dic       : num 115977
##   ..$ family.dic.sat   : num -13300
##   ..$ family.p.eff     : num 588
##   ..$ family           : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ local.dic        : num [1:14535] 10.59 6.11 7.4 9.71 9.29 ...
##   ..$ local.dic.sat    : num [1:14535] 4.894 0.182 1.702 -12.719 3.594 ...
##   ..$ local.p.eff      : num [1:14535] -0.0176 0.1354 0.0426 -0.0515 -0.026 ...
##  $ mode                       :List of 5
##   ..$ theta             : Named num [1:7] -6.392 -2 2.862 -1 0.346 ...
##   .. ..- attr(*, "names")= chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   ..$ x                 : num [1:186595] 21.8 14.1 24 29.2 10.4 ...
##   ..$ theta.tags        : chr [1:7] "log precision for the student-t observations" "dof_intern for student-t" "Theta1 for field" "Theta2 for field" ...
##   ..$ mode.status       : num 0
##   ..$ log.posterior.mode: num -108583
##  $ joint.hyper                :'data.frame': 4 obs. of  9 variables:
##   ..$ log precision for the student-t observations: num [1:4] -6.39 -6.39 -6.39 -6.39
##   ..$ dof_intern for student-t                    : num [1:4] -2 -2 -2 -2
##   ..$ Theta1 for field                            : num [1:4] 2.86 2.86 2.86 2.86
##   ..$ Theta2 for field                            : num [1:4] -1 -1 -1 -1
##   ..$ Theta3 for field                            : num [1:4] 0.346 0.346 0.346 0.346
##   ..$ Theta4 for field                            : num [1:4] 0.431 0.43 0.431 0.431
##   ..$ Theta5 for field                            : num [1:4] 0.122 0.123 0.123 0.123
##   ..$ Log posterior density                       : num [1:4] -108589 -108593 -108595 -108594
##   ..$ Total integration weight (log.dens included): num [1:4] 0.94998 0.03198 0.00367 0.01436
##  $ nhyper                     : int 7
##  $ version                    :List of 2
##   ..$ inla.call: chr "GITCOMMIT [dd38f0f7c6eb72df31ce7dd489d9352e91ffe0df - Thu Apr 25 18:31:00 2024 +0300]"
##   ..$ R.INLA   : Named chr "24.04.25-1"
##   .. ..- attr(*, "names")= chr "version"
##  $ Q                          : NULL
##  $ graph                      : NULL
##  $ ok                         : logi TRUE
##  $ cpu.intern                 : chr [1:16] "Wall-clock time used on [/tmp/RtmpsXS2lu/file18744e36cb871d/Model.ini]" "Preparations             :   0.247 seconds" "Approx inference (stage1): 881.676 seconds" "Approx inference (stage2):   0.002 seconds" ...
##  $ cpu.used                   : Named num [1:4] 0.292 884.808 8.468 893.567
##   ..- attr(*, "names")= chr [1:4] "Pre" "Running" "Post" "Total"
##  $ all.hyper                  :List of 4
##   ..$ predictor:List of 1
##   .. ..$ hyper:List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   ..$ family   :List of 1
##   .. ..$ :List of 4
##   .. .. ..$ hyperid: chr "INLA.Data1"
##   .. .. ..$ label  : chr "t"
##   .. .. ..$ hyper  :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "log precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 0
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log degrees of freedom"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "degrees of freedom for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "dof_intern for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "pc.dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 15 0.5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ link   :List of 1
##   .. .. .. ..$ hyper: list()
##   ..$ linear   :List of 2
##   .. ..$ :List of 3
##   .. .. ..$ label     : chr "Intercept"
##   .. .. ..$ prior.mean: num 0
##   .. .. ..$ prior.prec: num 0.001
##   .. ..$ :List of 3
##   .. .. ..$ label     : chr "SpeedLimit"
##   .. .. ..$ prior.mean: num 0
##   .. .. ..$ prior.prec: num 0.001
##   ..$ random   :List of 3
##   .. ..$ : NULL
##   .. ..$ : NULL
##   .. ..$ :List of 3
##   .. .. ..$ hyperid    : chr "field"
##   .. .. ..$ hyper      : NULL
##   .. .. ..$ group.hyper:List of 1
##   .. .. .. ..$ theta:List of 9
##   .. .. .. .. ..$ hyperid   : num 40001
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name      : chr "logit correlation"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name: chr "rho"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial   : num 1
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed     : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior     : chr "normal"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param     : num [1:2] 0 0.2
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta  :function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta:function (x, REPLACE.ME.ngroup)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##  $ .args                      :List of 30
##   ..$ formula          :Class 'formula'  language BRU.response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   ..$ family           : chr "t"
##   ..$ data             :List of 21
##   .. ..$ BRU.response             : num [1:14535] 0 12.9 24.1 32.2 0 ...
##   .. ..$ BRU.E                    : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.Ntrials              : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.weights              : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.scale                : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU.offset               : num [1:14535] 0 0 0 0 0 0 0 0 0 0 ...
##   .. ..$ Intercept                : num [1:86030] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.group          : int [1:86030] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ Intercept.repl           : int [1:86030] 1 NA NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit               : num [1:86030] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit.group         : int [1:86030] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ SpeedLimit.repl          : int [1:86030] NA 1 NA NA NA NA NA NA NA NA ...
##   .. ..$ field                    : int [1:86030] NA NA 1 2 3 4 5 6 7 8 ...
##   .. ..$ field.group              : int [1:86030] NA NA 1 1 1 1 1 1 1 1 ...
##   .. ..$ field.repl               : int [1:86030] NA NA 1 1 1 1 1 1 1 1 ...
##   .. ..$ BRU_Intercept_main_model : chr "linear"
##   .. ..$ BRU_Intercept_values     : num 1
##   .. ..$ BRU_SpeedLimit_main_model: chr "linear"
##   .. ..$ BRU_SpeedLimit_values    : num 1
##   .. ..$ BRU_field_main_model     :List of 20
##   .. .. ..$ f                   :List of 3
##   .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. ..$ n       : int 21507
##   .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. ..$ ints      :List of 6
##   .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. ..$ rspde_order: int 2
##   .. .. .. .. .. .. ..$ matern_par : int 1
##   .. .. .. .. .. ..$ doubles   :List of 9
##   .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. ..$ nu_upper_bound      : num 1.5
##   .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. ..$ start.theta         : num [1:4] 2.96 -1.4 0 0
##   .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 2.96 -1.4 0 0
##   .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. ..$ matrices  :List of 4
##   .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. ..$ B_tau           : num [1:35847] 7169 5 -1.15 -1 0.75 ...
##   .. .. .. .. .. .. ..$ B_kappa         : num [1:35847] 7169 5 0.896 0 -1 ...
##   .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. ..$ C: num [1:21510] 7169 7169 7169 0 1 ...
##   .. .. .. .. .. .. ..$ G: num [1:74640] 7169 7169 24879 0 1 ...
##   .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. ..$ cgeneric_type       : chr "general"
##   .. .. ..$ theta.prior.mean    : num [1:4] 2.96 -1.4 0 0
##   .. .. ..$ prior.nu            :List of 4
##   .. .. .. ..$ loglocation: num -0.288
##   .. .. .. ..$ mean       : num 0.75
##   .. .. .. ..$ prec       : num 3
##   .. .. .. ..$ logscale   : num 1
##   .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. ..$ start.nu            : num 0.75
##   .. .. ..$ integer.nu          : logi FALSE
##   .. .. ..$ start.theta         : num [1:4] 2.96 -1.4 0 0
##   .. .. ..$ stationary          : logi FALSE
##   .. .. ..$ rspde.order         : num 2
##   .. .. ..$ dim                 : num 1
##   .. .. ..$ est_nu              : logi TRUE
##   .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. ..$ debug               : logi FALSE
##   .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. ..$ fem_mesh            :List of 5
##   .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. ..@ factors : list()
##   .. .. ..$ parameterization    : chr "matern"
##   .. .. ..$ n.spde              : int 7169
##   .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. ..$ BRU_field_values         : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   ..$ quantiles        : num [1:3] 0.025 0.5 0.975
##   ..$ E                : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ offset           : num [1:14535] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ scale            : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ weights          : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ Ntrials          : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   ..$ verbose          : logi FALSE
##   ..$ control.compute  :List of 18
##   .. ..$ openmp.strategy           : chr "default"
##   .. ..$ hyperpar                  : logi TRUE
##   .. ..$ return.marginals          : logi TRUE
##   .. ..$ return.marginals.predictor: logi FALSE
##   .. ..$ dic                       : logi TRUE
##   .. ..$ mlik                      : logi TRUE
##   .. ..$ cpo                       : logi FALSE
##   .. ..$ po                        : logi FALSE
##   .. ..$ waic                      : logi TRUE
##   .. ..$ residuals                 : logi FALSE
##   .. ..$ q                         : logi FALSE
##   .. ..$ config                    : logi TRUE
##   .. ..$ likelihood.info           : logi FALSE
##   .. ..$ smtp                      : NULL
##   .. ..$ graph                     : logi FALSE
##   .. ..$ internal.opt              : NULL
##   .. ..$ save.memory               : NULL
##   .. ..$ control.gcpo              :List of 16
##   .. .. ..$ enable          : logi FALSE
##   .. .. ..$ num.level.sets  : num -1
##   .. .. ..$ size.max        : num 32
##   .. .. ..$ strategy        : chr [1:2] "posterior" "prior"
##   .. .. ..$ groups          : NULL
##   .. .. ..$ selection       : NULL
##   .. .. ..$ group.selection : NULL
##   .. .. ..$ friends         : NULL
##   .. .. ..$ weights         : NULL
##   .. .. ..$ verbose         : logi FALSE
##   .. .. ..$ epsilon         : num 0.005
##   .. .. ..$ prior.diagonal  : num 1e-04
##   .. .. ..$ correct.hyperpar: logi TRUE
##   .. .. ..$ keep            : NULL
##   .. .. ..$ remove          : NULL
##   .. .. ..$ remove.fixed    : logi TRUE
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_gcpo" "inla_ctrl_object"
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_compute" "inla_ctrl_object"
##   ..$ control.predictor:List of 12
##   .. ..$ hyper    :List of 1
##   .. .. ..$ theta:List of 9
##   .. .. .. ..$ hyperid   : num 53001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name      : chr "log precision"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name: chr "prec"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial   : num 13.8
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed     : logi TRUE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior     : chr "loggamma"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param     : num [1:2] 1e+00 1e-05
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta  :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta:function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. ..$ fixed    : NULL
##   .. ..$ prior    : NULL
##   .. ..$ param    : NULL
##   .. ..$ initial  : NULL
##   .. ..$ compute  : logi TRUE
##   .. ..$ cdf      : NULL
##   .. ..$ quantiles: NULL
##   .. ..$ cross    : NULL
##   .. ..$ A        :Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:116238] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ j       : int [1:116238] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. ..@ Dim     : int [1:2] 14535 86030
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:116238] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ precision: num 3269017
##   .. ..$ link     : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_predictor" "inla_ctrl_object"
##   ..$ control.family   :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ dummy            : num 0
##   .. .. ..$ hyper            :List of 2
##   .. .. .. ..$ theta1:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log precision"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "prec"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "log precision for the student-t observations"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 0
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "loggamma"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 1e+00 5e-05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ theta2:List of 11
##   .. .. .. .. ..$ hyperid           : num 1e+05
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ name              : chr "log degrees of freedom"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ short.name        : chr "dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name       : chr "degrees of freedom for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ output.name.intern: chr "dof_intern for student-t"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ initial           : num 5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ prior             : chr "pc.dof"
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ param             : num [1:2] 15 0.5
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ initial          : NULL
##   .. .. ..$ prior            : NULL
##   .. .. ..$ param            : NULL
##   .. .. ..$ fixed            : NULL
##   .. .. ..$ link             : chr "default"
##   .. .. ..$ sn.shape.max     : num 5
##   .. .. ..$ gev.scale.xi     : num 0.1
##   .. .. ..$ control.bgev     : NULL
##   .. .. ..$ cenpoisson.I     : int [1:2] -1 -1
##   .. .. ..$ beta.censor.value: num 0
##   .. .. ..$ variant          : int 0
##   .. .. ..$ control.mix      : NULL
##   .. .. ..$ control.pom      : NULL
##   .. .. ..$ control.link     :List of 10
##   .. .. .. ..$ model   : chr "default"
##   .. .. .. ..$ order   : NULL
##   .. .. .. ..$ variant : NULL
##   .. .. .. ..$ hyper   : list()
##   .. .. .. ..$ quantile: NULL
##   .. .. .. ..$ a       : num 1
##   .. .. .. ..$ initial : NULL
##   .. .. .. ..$ fixed   : NULL
##   .. .. .. ..$ prior   : NULL
##   .. .. .. ..$ param   : NULL
##   .. .. .. ..- attr(*, "class")= chr [1:2] "ctrl_link" "inla_ctrl_object"
##   .. .. ..$ link.simple      : chr "default"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_family" "inla_ctrl_object"
##   ..$ control.inla     :List of 56
##   .. ..$ strategy                          : chr "auto"
##   .. ..$ int.strategy                      : chr "auto"
##   .. ..$ int.design                        : NULL
##   .. ..$ interpolator                      : chr "auto"
##   .. ..$ fast                              : logi TRUE
##   .. ..$ linear.correction                 : NULL
##   .. ..$ h                                 : num 0.005
##   .. ..$ dz                                : num 0.75
##   .. ..$ diff.logdens                      : num 6
##   .. ..$ print.joint.hyper                 : logi TRUE
##   .. ..$ force.diagonal                    : logi FALSE
##   .. ..$ skip.configurations               : logi TRUE
##   .. ..$ mode.known                        : logi FALSE
##   .. ..$ adjust.weights                    : logi TRUE
##   .. ..$ tolerance                         : num 0.005
##   .. ..$ tolerance.f                       : NULL
##   .. ..$ tolerance.g                       : NULL
##   .. ..$ tolerance.x                       : NULL
##   .. ..$ tolerance.step                    : NULL
##   .. ..$ restart                           : int 0
##   .. ..$ optimiser                         : chr "default"
##   .. ..$ verbose                           : NULL
##   .. ..$ reordering                        : chr "auto"
##   .. ..$ cpo.diff                          : NULL
##   .. ..$ npoints                           : num 9
##   .. ..$ cutoff                            : num 1e-04
##   .. ..$ adapt.hessian.mode                : NULL
##   .. ..$ adapt.hessian.max.trials          : NULL
##   .. ..$ adapt.hessian.scale               : NULL
##   .. ..$ adaptive.max                      : int 25
##   .. ..$ huge                              : logi FALSE
##   .. ..$ step.len                          : num 0
##   .. ..$ stencil                           : int 5
##   .. ..$ lincomb.derived.correlation.matrix: logi FALSE
##   .. ..$ diagonal                          : num 0
##   .. ..$ numint.maxfeval                   : num 1e+05
##   .. ..$ numint.relerr                     : num 1e-05
##   .. ..$ numint.abserr                     : num 1e-06
##   .. ..$ cmin                              : num -Inf
##   .. ..$ b.strategy                        : chr "keep"
##   .. ..$ step.factor                       : num -0.1
##   .. ..$ global.node.factor                : num 2
##   .. ..$ global.node.degree                : int 2147483647
##   .. ..$ stupid.search                     : logi TRUE
##   .. ..$ stupid.search.max.iter            : int 1000
##   .. ..$ stupid.search.factor              : num 1.05
##   .. ..$ control.vb                        :List of 8
##   .. .. ..$ enable          : chr "auto"
##   .. .. ..$ strategy        : chr [1:2] "mean" "variance"
##   .. .. ..$ verbose         : logi TRUE
##   .. .. ..$ iter.max        : num 25
##   .. .. ..$ emergency       : num 25
##   .. .. ..$ f.enable.limit  : num [1:4] 30 25 1024 768
##   .. .. ..$ hessian.update  : num 2
##   .. .. ..$ hessian.strategy: chr [1:4] "default" "full" "partial" "diagonal"
##   .. .. ..- attr(*, "class")= chr [1:2] "ctrl_vb" "inla_ctrl_object"
##   .. ..$ num.gradient                      : chr "central"
##   .. ..$ num.hessian                       : chr "central"
##   .. ..$ optimise.strategy                 : chr "smart"
##   .. ..$ use.directions                    : logi TRUE
##   .. ..$ constr.marginal.diagonal          : num 1.49e-08
##   .. ..$ improved.simplified.laplace       : logi FALSE
##   .. ..$ parallel.linesearch               : logi FALSE
##   .. ..$ compute.initial.values            : logi TRUE
##   .. ..$ hessian.correct.skewness.only     : logi TRUE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_inla" "inla_ctrl_object"
##   ..$ control.fixed    :List of 10
##   .. ..$ cdf                   : NULL
##   .. ..$ quantiles             : NULL
##   .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ mean                  : num 0
##   .. ..$ mean.intercept        : num 0
##   .. ..$ prec                  : num 0.001
##   .. ..$ prec.intercept        : num 0
##   .. ..$ compute               : logi TRUE
##   .. ..$ correlation.matrix    : logi FALSE
##   .. ..$ remove.names          : NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_fixed" "inla_ctrl_object"
##   ..$ control.mode     :List of 5
##   .. ..$ result : NULL
##   .. ..$ theta  : NULL
##   .. ..$ x      : NULL
##   .. ..$ restart: logi FALSE
##   .. ..$ fixed  : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_mode" "inla_ctrl_object"
##   ..$ control.expert   :List of 6
##   .. ..$ cpo.manual            : logi FALSE
##   .. ..$ cpo.idx               : num -1
##   .. ..$ disable.gaussian.check: logi FALSE
##   .. ..$ jp                    : NULL
##   .. ..$ dot.product.gain      : logi FALSE
##   .. ..$ globalconstr          :List of 2
##   .. .. ..$ A: NULL
##   .. .. ..$ e: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_expert" "inla_ctrl_object"
##   ..$ control.lincomb  :List of 1
##   .. ..$ verbose: logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lincomb" "inla_ctrl_object"
##   ..$ control.update   :List of 1
##   .. ..$ result: NULL
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_update" "inla_ctrl_object"
##   ..$ control.lp.scale :List of 1
##   .. ..$ hyper:List of 100
##   .. .. ..$ theta1  :List of 11
##   .. .. .. ..$ hyperid           : num 103001
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b1"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[1] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta2  :List of 11
##   .. .. .. ..$ hyperid           : num 103002
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b2"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[2] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta3  :List of 11
##   .. .. .. ..$ hyperid           : num 103003
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b3"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[3] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta4  :List of 11
##   .. .. .. ..$ hyperid           : num 103004
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b4"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[4] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta5  :List of 11
##   .. .. .. ..$ hyperid           : num 103005
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b5"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[5] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta6  :List of 11
##   .. .. .. ..$ hyperid           : num 103006
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b6"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[6] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta7  :List of 11
##   .. .. .. ..$ hyperid           : num 103007
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b7"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[7] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta8  :List of 11
##   .. .. .. ..$ hyperid           : num 103008
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b8"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[8] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta9  :List of 11
##   .. .. .. ..$ hyperid           : num 103009
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b9"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[9] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta10 :List of 11
##   .. .. .. ..$ hyperid           : num 103010
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b10"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[10] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta11 :List of 11
##   .. .. .. ..$ hyperid           : num 103011
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b11"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[11] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta12 :List of 11
##   .. .. .. ..$ hyperid           : num 103012
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b12"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[12] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta13 :List of 11
##   .. .. .. ..$ hyperid           : num 103013
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b13"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[13] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta14 :List of 11
##   .. .. .. ..$ hyperid           : num 103014
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b14"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[14] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta15 :List of 11
##   .. .. .. ..$ hyperid           : num 103015
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b15"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[15] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta16 :List of 11
##   .. .. .. ..$ hyperid           : num 103016
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b16"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[16] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta17 :List of 11
##   .. .. .. ..$ hyperid           : num 103017
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b17"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[17] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta18 :List of 11
##   .. .. .. ..$ hyperid           : num 103018
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b18"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[18] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta19 :List of 11
##   .. .. .. ..$ hyperid           : num 103019
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b19"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[19] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta20 :List of 11
##   .. .. .. ..$ hyperid           : num 103020
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b20"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[20] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta21 :List of 11
##   .. .. .. ..$ hyperid           : num 103021
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b21"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[21] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta22 :List of 11
##   .. .. .. ..$ hyperid           : num 103022
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b22"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[22] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta23 :List of 11
##   .. .. .. ..$ hyperid           : num 103023
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b23"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[23] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta24 :List of 11
##   .. .. .. ..$ hyperid           : num 103024
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b24"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[24] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta25 :List of 11
##   .. .. .. ..$ hyperid           : num 103025
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b25"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[25] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta26 :List of 11
##   .. .. .. ..$ hyperid           : num 103026
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b26"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[26] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta27 :List of 11
##   .. .. .. ..$ hyperid           : num 103027
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b27"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[27] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta28 :List of 11
##   .. .. .. ..$ hyperid           : num 103028
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b28"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[28] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta29 :List of 11
##   .. .. .. ..$ hyperid           : num 103029
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b29"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[29] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta30 :List of 11
##   .. .. .. ..$ hyperid           : num 103030
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b30"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[30] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta31 :List of 11
##   .. .. .. ..$ hyperid           : num 103031
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b31"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[31] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta32 :List of 11
##   .. .. .. ..$ hyperid           : num 103032
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b32"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[32] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta33 :List of 11
##   .. .. .. ..$ hyperid           : num 103033
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b33"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[33] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta34 :List of 11
##   .. .. .. ..$ hyperid           : num 103034
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b34"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[34] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta35 :List of 11
##   .. .. .. ..$ hyperid           : num 103035
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b35"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[35] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta36 :List of 11
##   .. .. .. ..$ hyperid           : num 103036
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b36"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[36] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta37 :List of 11
##   .. .. .. ..$ hyperid           : num 103037
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b37"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[37] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta38 :List of 11
##   .. .. .. ..$ hyperid           : num 103038
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b38"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[38] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta39 :List of 11
##   .. .. .. ..$ hyperid           : num 103039
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b39"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[39] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta40 :List of 11
##   .. .. .. ..$ hyperid           : num 103040
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b40"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[40] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta41 :List of 11
##   .. .. .. ..$ hyperid           : num 103041
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b41"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[41] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta42 :List of 11
##   .. .. .. ..$ hyperid           : num 103042
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b42"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[42] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta43 :List of 11
##   .. .. .. ..$ hyperid           : num 103043
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b43"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[43] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta44 :List of 11
##   .. .. .. ..$ hyperid           : num 103044
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b44"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[44] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta45 :List of 11
##   .. .. .. ..$ hyperid           : num 103045
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b45"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[45] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta46 :List of 11
##   .. .. .. ..$ hyperid           : num 103046
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b46"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[46] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta47 :List of 11
##   .. .. .. ..$ hyperid           : num 103047
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b47"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[47] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta48 :List of 11
##   .. .. .. ..$ hyperid           : num 103048
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b48"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[48] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta49 :List of 11
##   .. .. .. ..$ hyperid           : num 103049
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b49"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[49] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta50 :List of 11
##   .. .. .. ..$ hyperid           : num 103050
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b50"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[50] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta51 :List of 11
##   .. .. .. ..$ hyperid           : num 103051
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b51"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[51] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta52 :List of 11
##   .. .. .. ..$ hyperid           : num 103052
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b52"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[52] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta53 :List of 11
##   .. .. .. ..$ hyperid           : num 103053
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b53"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[53] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta54 :List of 11
##   .. .. .. ..$ hyperid           : num 103054
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b54"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[54] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta55 :List of 11
##   .. .. .. ..$ hyperid           : num 103055
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b55"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[55] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta56 :List of 11
##   .. .. .. ..$ hyperid           : num 103056
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b56"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[56] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta57 :List of 11
##   .. .. .. ..$ hyperid           : num 103057
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b57"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[57] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta58 :List of 11
##   .. .. .. ..$ hyperid           : num 103058
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b58"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[58] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta59 :List of 11
##   .. .. .. ..$ hyperid           : num 103059
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b59"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[59] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta60 :List of 11
##   .. .. .. ..$ hyperid           : num 103060
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b60"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[60] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta61 :List of 11
##   .. .. .. ..$ hyperid           : num 103061
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b61"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[61] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta62 :List of 11
##   .. .. .. ..$ hyperid           : num 103062
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b62"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[62] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta63 :List of 11
##   .. .. .. ..$ hyperid           : num 103063
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b63"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[63] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta64 :List of 11
##   .. .. .. ..$ hyperid           : num 103064
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b64"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[64] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta65 :List of 11
##   .. .. .. ..$ hyperid           : num 103065
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b65"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[65] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta66 :List of 11
##   .. .. .. ..$ hyperid           : num 103066
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b66"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[66] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta67 :List of 11
##   .. .. .. ..$ hyperid           : num 103067
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b67"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[67] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta68 :List of 11
##   .. .. .. ..$ hyperid           : num 103068
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b68"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[68] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta69 :List of 11
##   .. .. .. ..$ hyperid           : num 103069
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b69"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[69] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta70 :List of 11
##   .. .. .. ..$ hyperid           : num 103070
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b70"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[70] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta71 :List of 11
##   .. .. .. ..$ hyperid           : num 103071
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b71"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[71] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta72 :List of 11
##   .. .. .. ..$ hyperid           : num 103072
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b72"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[72] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta73 :List of 11
##   .. .. .. ..$ hyperid           : num 103073
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b73"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[73] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta74 :List of 11
##   .. .. .. ..$ hyperid           : num 103074
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b74"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[74] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta75 :List of 11
##   .. .. .. ..$ hyperid           : num 103075
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b75"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[75] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta76 :List of 11
##   .. .. .. ..$ hyperid           : num 103076
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b76"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[76] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta77 :List of 11
##   .. .. .. ..$ hyperid           : num 103077
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b77"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[77] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta78 :List of 11
##   .. .. .. ..$ hyperid           : num 103078
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b78"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[78] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta79 :List of 11
##   .. .. .. ..$ hyperid           : num 103079
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b79"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[79] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta80 :List of 11
##   .. .. .. ..$ hyperid           : num 103080
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b80"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[80] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta81 :List of 11
##   .. .. .. ..$ hyperid           : num 103081
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b81"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[81] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta82 :List of 11
##   .. .. .. ..$ hyperid           : num 103082
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b82"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[82] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta83 :List of 11
##   .. .. .. ..$ hyperid           : num 103083
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b83"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[83] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta84 :List of 11
##   .. .. .. ..$ hyperid           : num 103084
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b84"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[84] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta85 :List of 11
##   .. .. .. ..$ hyperid           : num 103085
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b85"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[85] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta86 :List of 11
##   .. .. .. ..$ hyperid           : num 103086
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b86"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[86] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta87 :List of 11
##   .. .. .. ..$ hyperid           : num 103087
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b87"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[87] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta88 :List of 11
##   .. .. .. ..$ hyperid           : num 103088
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b88"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[88] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta89 :List of 11
##   .. .. .. ..$ hyperid           : num 103089
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b89"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[89] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta90 :List of 11
##   .. .. .. ..$ hyperid           : num 103090
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b90"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[90] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta91 :List of 11
##   .. .. .. ..$ hyperid           : num 103091
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b91"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[91] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta92 :List of 11
##   .. .. .. ..$ hyperid           : num 103092
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b92"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[92] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta93 :List of 11
##   .. .. .. ..$ hyperid           : num 103093
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b93"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[93] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta94 :List of 11
##   .. .. .. ..$ hyperid           : num 103094
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b94"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[94] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta95 :List of 11
##   .. .. .. ..$ hyperid           : num 103095
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b95"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[95] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta96 :List of 11
##   .. .. .. ..$ hyperid           : num 103096
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b96"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[96] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta97 :List of 11
##   .. .. .. ..$ hyperid           : num 103097
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b97"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[97] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta98 :List of 11
##   .. .. .. ..$ hyperid           : num 103098
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b98"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[98] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. ..$ theta99 :List of 11
##   .. .. .. ..$ hyperid           : num 103099
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ name              : chr "beta99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ short.name        : chr "b99"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name       : chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ output.name.intern: chr "beta[99] for lp_scale"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ initial           : num 1
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ fixed             : logi FALSE
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ prior             : chr "normal"
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ param             : num [1:2] 1 10
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi FALSE
##   .. .. .. ..$ to.theta          :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. ..$ from.theta        :function (x)  
##   .. .. .. .. ..- attr(*, "inla.read.only")= logi TRUE
##   .. .. .. [list output truncated]
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_lp_scale" "inla_ctrl_object"
##   ..$ control.pardiso  :List of 4
##   .. ..$ verbose            : logi FALSE
##   .. ..$ debug              : logi FALSE
##   .. ..$ parallel.reordering: logi TRUE
##   .. ..$ nrhs               : num -1
##   .. ..- attr(*, "class")= chr [1:2] "ctrl_pardiso" "inla_ctrl_object"
##   ..$ only.hyperparam  : logi FALSE
##   ..$ inla.call        : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/inla.mkl.run"
##   ..$ num.threads      : chr "24:1"
##   ..$ keep             : logi FALSE
##   ..$ silent           : logi TRUE
##   ..$ inla.mode        : chr "compact"
##   ..$ safe             : logi TRUE
##   ..$ debug            : logi FALSE
##   ..$ .parent.frame    :<environment: R_GlobalEnv> 
##  $ call                       : chr [1:14] "inla.core(formula = formula, family = family, contrasts = contrasts, " "    data = data, quantiles = quantiles, E = E, offset = offset, " "    scale = scale, weights = weights, Ntrials = Ntrials, strata = strata, " "    lp.scale = lp.scale, link.covariates = link.covariates, verbose = verbose, " ...
##  $ model.matrix               :Formal class 'dsparseModelMatrix' [package "MatrixModels"] with 8 slots
##   .. ..@ i        : int(0) 
##   .. ..@ p        : int 0
##   .. ..@ Dim      : int [1:2] 86030 0
##   .. ..@ Dimnames :List of 2
##   .. .. ..$ : chr [1:86030] "1" "2" "3" "4" ...
##   .. .. ..$ : NULL
##   .. ..@ x        : num(0) 
##   .. ..@ factors  : list()
##   .. ..@ assign   : int(0) 
##   .. ..@ contrasts: Named list()
##  $ bru_iinla                  :List of 5
##   ..$ log       :Class 'bru_log'  hidden list of 2
##   .. ..$ log      : chr [1:7] "2024-05-02 18:34:29.785889: iinla: Evaluate component inputs" "2024-05-02 18:34:29.835143: iinla: Evaluate component linearisations" "2024-05-02 18:34:33.041367: iinla: Evaluate component simplifications" "2024-05-02 18:34:36.158562: iinla: Evaluate predictor linearisation" ...
##   .. ..$ bookmarks: Named int 0
##   .. .. ..- attr(*, "names")= chr "iinla"
##   ..$ states    :List of 1
##   .. ..$ :List of 3
##   .. .. ..$ Intercept : num 0
##   .. .. ..$ SpeedLimit: num 0
##   .. .. ..$ field     : num [1:86028] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ inla_stack:List of 3
##   .. ..$ A      :Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. ..@ i       : int [1:116238] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. ..@ p       : int [1:86031] 0 14535 29070 29074 29081 29081 29081 29081 29082 29083 ...
##   .. .. .. ..@ Dim     : int [1:2] 14535 86030
##   .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. ..$ : NULL
##   .. .. .. .. ..$ : NULL
##   .. .. .. ..@ x       : num [1:116238] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..@ factors : list()
##   .. ..$ data   :List of 5
##   .. .. ..$ data :'data.frame':  14535 obs. of  6 variables:
##   .. .. .. ..$ BRU.response: num [1:14535] 0 12.9 24.1 32.2 0 ...
##   .. .. .. ..$ BRU.E       : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.Ntrials : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.weights : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.scale   : num [1:14535] 1 1 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ BRU.offset  : num [1:14535] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. ..$ nrow : int 14535
##   .. .. ..$ ncol : Named int [1:6] 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:6] "BRU.response" "BRU.E" "BRU.Ntrials" "BRU.weights" ...
##   .. .. ..$ names:List of 6
##   .. .. .. ..$ BRU.response: chr "BRU.response"
##   .. .. .. ..$ BRU.E       : chr "BRU.E"
##   .. .. .. ..$ BRU.Ntrials : chr "BRU.Ntrials"
##   .. .. .. ..$ BRU.weights : chr "BRU.weights"
##   .. .. .. ..$ BRU.scale   : chr "BRU.scale"
##   .. .. .. ..$ BRU.offset  : chr "BRU.offset"
##   .. .. ..$ index:List of 1
##   .. .. .. ..$ : num [1:14535] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..$ effects:List of 5
##   .. .. ..$ data :'data.frame':  86030 obs. of  9 variables:
##   .. .. .. ..$ Intercept       : num [1:86030] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.group : int [1:86030] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ Intercept.repl  : int [1:86030] 1 NA NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit      : num [1:86030] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit.group: int [1:86030] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ SpeedLimit.repl : int [1:86030] NA 1 NA NA NA NA NA NA NA NA ...
##   .. .. .. ..$ field           : int [1:86030] NA NA 1 2 3 4 5 6 7 8 ...
##   .. .. .. ..$ field.group     : int [1:86030] NA NA 1 1 1 1 1 1 1 1 ...
##   .. .. .. ..$ field.repl      : int [1:86030] NA NA 1 1 1 1 1 1 1 1 ...
##   .. .. ..$ nrow : int 86030
##   .. .. ..$ ncol : Named int [1:9] 1 1 1 1 1 1 1 1 1
##   .. .. .. ..- attr(*, "names")= chr [1:9] "Intercept" "Intercept.group" "Intercept.repl" "SpeedLimit" ...
##   .. .. ..$ names:List of 9
##   .. .. .. ..$ Intercept       : chr "Intercept"
##   .. .. .. ..$ Intercept.group : chr "Intercept.group"
##   .. .. .. ..$ Intercept.repl  : chr "Intercept.repl"
##   .. .. .. ..$ SpeedLimit      : chr "SpeedLimit"
##   .. .. .. ..$ SpeedLimit.group: chr "SpeedLimit.group"
##   .. .. .. ..$ SpeedLimit.repl : chr "SpeedLimit.repl"
##   .. .. .. ..$ field           : chr "field"
##   .. .. .. ..$ field.group     : chr "field.group"
##   .. .. .. ..$ field.repl      : chr "field.repl"
##   .. .. ..$ index:List of 3
##   .. .. .. ..$ : int 1
##   .. .. .. ..$ : int 2
##   .. .. .. ..$ : int [1:86028] 3 4 5 6 7 8 9 10 11 12 ...
##   .. .. ..- attr(*, "class")= chr "inla.data.stack.info"
##   .. ..- attr(*, "class")= chr "inla.data.stack"
##   ..$ track     :'data.frame':   86038 obs. of  6 variables:
##   .. ..$ effect           : chr [1:86038] "Intercept" "SpeedLimit" "field" "field" ...
##   .. ..$ index            : num [1:86038] 1 1 1 2 3 4 5 6 7 8 ...
##   .. ..$ iteration        : num [1:86038] 1 1 1 1 1 1 1 1 1 1 ...
##   .. ..$ mode             : num [1:86038] 20.868 3.208 0.464 0.144 -0.412 ...
##   .. ..$ sd               : num [1:86038] 0.0972 0.1426 0.9098 0.7156 0.5258 ...
##   .. ..$ new_linearisation: num [1:86038] 0 0 0 0 0 0 0 0 0 0 ...
##   ..$ timings   :'data.frame':   2 obs. of  3 variables:
##   .. ..$ Task     : chr [1:2] "Preprocess" "Run inla()"
##   .. ..$ Iteration: num [1:2] 1 1
##   .. ..$ Time     : 'difftime' num [1:2] 1.21905879974365 14.8964261611303
##   .. .. ..- attr(*, "units")= chr "mins"
##  $ bru_timings                :'data.frame': 3 obs. of  3 variables:
##   ..$ Task     : chr [1:3] "Preprocess" "Preprocess" "Run inla()"
##   ..$ Iteration: num [1:3] 0 1 1
##   ..$ Time     : 'difftime' num [1:3] 0.0594453811645508 73.1435279846191 893.785569667816
##   .. ..- attr(*, "units")= chr "secs"
##  $ bru_info                   :List of 6
##   ..$ method         : chr "bru"
##   ..$ model          :List of 2
##   .. ..$ effects:List of 3
##   .. .. ..$ Intercept :List of 12
##   .. .. .. ..$ label       : chr "Intercept"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : num 1
##   .. .. .. .. .. ..$ label   : chr "Intercept"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        : list()
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "linear"
##   .. .. .. .. ..$ type          : chr "linear"
##   .. .. .. .. ..$ n             : int 1
##   .. .. .. .. ..$ values        : num 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "Intercept.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x6397b6f7cef8> 
##   .. .. .. ..$ fcall       : language "f"(Intercept, model = BRU_Intercept_main_model, ngroup = 1, nrep = 1,      values = BRU_Intercept_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 1
##   .. .. .. .. .. .. ..$ n_inla           : num 1
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 1 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 1
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..$ SpeedLimit:List of 12
##   .. .. .. ..$ label       : chr "SpeedLimit"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(SpeedLimit, model = BRU_SpeedLimit_main_model, ngroup = 1, nrep = 1,      values = BRU_SpeedLimit_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : symbol SpeedLimit
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        : list()
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "linear"
##   .. .. .. .. ..$ type          : chr "linear"
##   .. .. .. .. ..$ n             : int 1
##   .. .. .. .. ..$ values        : num 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "SpeedLimit.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x6397b6f5e798> 
##   .. .. .. ..$ fcall       : language "f"(SpeedLimit, model = BRU_SpeedLimit_main_model, ngroup = 1, nrep = 1,      values = BRU_SpeedLimit_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : list()
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_linear" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int 1
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: num 1
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 1
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int 1
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 1
##   .. .. .. .. .. .. ..$ n_inla           : num 1
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 1 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 1
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..$ field     :List of 12
##   .. .. .. ..$ label       : chr "field"
##   .. .. .. ..$ inla.formula:Class 'formula'  language ~. + f(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. .. .. ..$ main        :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : symbol loc
##   .. .. .. .. .. ..$ label   : chr "field"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ model:List of 20
##   .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. ..$ n       : int 21507
##   .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. ..$ ints      :List of 6
##   .. .. .. .. .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ rspde_order: int 2
##   .. .. .. .. .. .. .. .. .. .. ..$ matern_par : int 1
##   .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 9
##   .. .. .. .. .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. .. .. .. .. ..$ nu_upper_bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:4] 2.96 -1.4 0 0
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 2.96 -1.4 0 0
##   .. .. .. .. .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ B_tau           : num [1:35847] 7169 5 -1.15 -1 0.75 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ B_kappa         : num [1:35847] 7169 5 0.896 0 -1 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ C: num [1:21510] 7169 7169 7169 0 1 ...
##   .. .. .. .. .. .. .. .. .. .. ..$ G: num [1:74640] 7169 7169 24879 0 1 ...
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. ..$ cgeneric_type       : chr "general"
##   .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 2.96 -1.4 0 0
##   .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. ..$ loglocation: num -0.288
##   .. .. .. .. .. .. .. ..$ mean       : num 0.75
##   .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. ..$ integer.nu          : logi FALSE
##   .. .. .. .. .. .. ..$ start.theta         : num [1:4] 2.96 -1.4 0 0
##   .. .. .. .. .. .. ..$ stationary          : logi FALSE
##   .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. ..$ est_nu              : logi TRUE
##   .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. ..$ fem_mesh            :List of 5
##   .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. ..$ n.spde              : int 7169
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. ..$ model         :List of 20
##   .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. ..$ n       : int 21507
##   .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. ..$ ints      :List of 6
##   .. .. .. .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. ..$ rspde_order: int 2
##   .. .. .. .. .. .. .. .. .. ..$ matern_par : int 1
##   .. .. .. .. .. .. .. .. ..$ doubles   :List of 9
##   .. .. .. .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ nu_upper_bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:4] 2.96 -1.4 0 0
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 2.96 -1.4 0 0
##   .. .. .. .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. ..$ matrices  :List of 4
##   .. .. .. .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. .. .. .. ..$ B_tau           : num [1:35847] 7169 5 -1.15 -1 0.75 ...
##   .. .. .. .. .. .. .. .. .. ..$ B_kappa         : num [1:35847] 7169 5 0.896 0 -1 ...
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. .. .. .. ..$ C: num [1:21510] 7169 7169 7169 0 1 ...
##   .. .. .. .. .. .. .. .. .. ..$ G: num [1:74640] 7169 7169 24879 0 1 ...
##   .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. ..$ cgeneric_type       : chr "general"
##   .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 2.96 -1.4 0 0
##   .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. ..$ loglocation: num -0.288
##   .. .. .. .. .. .. ..$ mean       : num 0.75
##   .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. ..$ integer.nu          : logi FALSE
##   .. .. .. .. .. ..$ start.theta         : num [1:4] 2.96 -1.4 0 0
##   .. .. .. .. .. ..$ stationary          : logi FALSE
##   .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. ..$ est_nu              : logi TRUE
##   .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. ..$ fem_mesh            :List of 5
##   .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. ..$ n.spde              : int 7169
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. ..$ type          : chr "cgeneric"
##   .. .. .. .. ..$ n             : num 21507
##   .. .. .. .. ..$ values        : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ group       :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : int 1
##   .. .. .. .. .. ..$ label   : chr "field.group"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 1
##   .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "exchangeable"
##   .. .. .. .. ..$ type          : chr "exchangeable"
##   .. .. .. .. ..$ n             : num 1
##   .. .. .. .. ..$ values        : int 1
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ replicate   :List of 8
##   .. .. .. .. ..$ input         :List of 4
##   .. .. .. .. .. ..$ input   : language data_rspde_bru_nonstat[["repl"]]
##   .. .. .. .. .. ..$ label   : chr "field.repl"
##   .. .. .. .. .. ..$ layer   : NULL
##   .. .. .. .. .. ..$ selector: NULL
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_input" "list"
##   .. .. .. .. ..$ mapper        :List of 4
##   .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. ..$ model         : chr "iid"
##   .. .. .. .. ..$ type          : chr "iid"
##   .. .. .. .. ..$ n             : int 4
##   .. .. .. .. ..$ values        : int [1:4] 1 2 3 4
##   .. .. .. .. ..$ season.length : NULL
##   .. .. .. .. ..$ factor_mapping: NULL
##   .. .. .. .. ..- attr(*, "class")= chr [1:2] "bru_subcomponent" "list"
##   .. .. .. ..$ weights     : NULL
##   .. .. .. ..$ copy        : NULL
##   .. .. .. ..$ marginal    : NULL
##   .. .. .. ..$ env         :<environment: R_GlobalEnv> 
##   .. .. .. ..$ env_extra   :<environment: 0x6397a4130020> 
##   .. .. .. ..$ fcall       : language "f"(field, model = BRU_field_main_model, replicate = field.repl, ngroup = 1,      nrep = 4L, values = BRU_field_values)
##   .. .. .. ..$ mapper      :List of 6
##   .. .. .. .. ..$ mappers  :List of 2
##   .. .. .. .. .. ..$ mapper:List of 9
##   .. .. .. .. .. .. ..$ mappers          :List of 3
##   .. .. .. .. .. .. .. ..$ main     :List of 1
##   .. .. .. .. .. .. .. .. ..$ model:List of 20
##   .. .. .. .. .. .. .. .. .. ..$ f                   :List of 3
##   .. .. .. .. .. .. .. .. .. .. ..$ model   : chr "cgeneric"
##   .. .. .. .. .. .. .. .. .. .. ..$ n       : int 21507
##   .. .. .. .. .. .. .. .. .. .. ..$ cgeneric:List of 5
##   .. .. .. .. .. .. .. .. .. .. .. ..$ model: chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ shlib: chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. ..$ n    : int 21507
##   .. .. .. .. .. .. .. .. .. .. .. ..$ debug: logi FALSE
##   .. .. .. .. .. .. .. .. .. .. .. ..$ data :List of 5
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ ints      :List of 6
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ n          : int 21507
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ debug      : int 0
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_i: int [1:135512] 0 0 0 0 0 0 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ graph_opt_j: int [1:135512] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ rspde_order: int 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ matern_par : int 1
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ doubles   :List of 9
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ d                   : num 1
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ nu_upper_bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.logscale   : num 1
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:4] 2.96 -1.4 0 0
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 2.96 -1.4 0 0
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ characters:List of 4
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ model            : chr "inla_cgeneric_rspde_nonstat_general_model"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ shlib            : chr "/home/rierasl/R/x86_64-pc-linux-gnu-library/4.4/INLA/bin/linux/64bit/external/rSPDE/librSPDE.so"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist    : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ prior.theta.param: chr "theta"
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ matrices  :List of 4
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ rational_table  : num [1:5996] 999 6 0.001 0.412 0.005 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ B_tau           : num [1:35847] 7169 5 -1.15 -1 0.75 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ B_kappa         : num [1:35847] 7169 5 0.896 0 -1 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec: num [1:18] 4 4 0.1 0 0 0 0 0.1 0 0 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..$ smatrices :List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ C: num [1:21510] 7169 7169 7169 0 1 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ G: num [1:74640] 7169 7169 24879 0 1 ...
##   .. .. .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr "inla.cgeneric"
##   .. .. .. .. .. .. .. .. .. ..$ cgeneric_type       : chr "general"
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.mean    : num [1:4] 2.96 -1.4 0 0
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu            :List of 4
##   .. .. .. .. .. .. .. .. .. .. ..$ loglocation: num -0.288
##   .. .. .. .. .. .. .. .. .. .. ..$ mean       : num 0.75
##   .. .. .. .. .. .. .. .. .. .. ..$ prec       : num 3
##   .. .. .. .. .. .. .. .. .. .. ..$ logscale   : num 1
##   .. .. .. .. .. .. .. .. .. ..$ theta.prior.prec    : num [1:4, 1:4] 0.1 0 0 0 0 0.1 0 0 0 0 ...
##   .. .. .. .. .. .. .. .. .. ..$ start.nu            : num 0.75
##   .. .. .. .. .. .. .. .. .. ..$ integer.nu          : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ start.theta         : num [1:4] 2.96 -1.4 0 0
##   .. .. .. .. .. .. .. .. .. ..$ stationary          : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ rspde.order         : num 2
##   .. .. .. .. .. .. .. .. .. ..$ dim                 : num 1
##   .. .. .. .. .. .. .. .. .. ..$ est_nu              : logi TRUE
##   .. .. .. .. .. .. .. .. .. ..$ nu.upper.bound      : num 1.5
##   .. .. .. .. .. .. .. .. .. ..$ prior.nu.dist       : chr "lognormal"
##   .. .. .. .. .. .. .. .. .. ..$ debug               : logi FALSE
##   .. .. .. .. .. .. .. .. .. ..$ type.rational.approx: chr "chebfun"
##   .. .. .. .. .. .. .. .. .. ..$ mesh                :Classes 'metric_graph', 'R6' <metric_graph>
##   Public:
##     add_mesh_observations: function (data = NULL, group = NULL) 
##     add_observations: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     build_mesh: function (h = NULL, n = NULL, continuous = TRUE, continuous.outs = FALSE, 
##     buildC: function (alpha = 2, edge_constraint = FALSE) 
##     buildDirectionalConstraints: function (alpha = 1) 
##     C: NULL
##     characteristics: list
##     check_distance_consistency: function () 
##     check_euclidean: function () 
##     clear_observations: function () 
##     clone: function (deep = FALSE) 
##     CoB: NULL
##     compute_characteristics: function (check_euclidean = FALSE) 
##     compute_fem: function (petrov = FALSE) 
##     compute_geodist: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_geodist_mesh: function () 
##     compute_geodist_PtE: function (PtE, normalized = TRUE, include_vertices = TRUE, verbose = 0) 
##     compute_laplacian: function (full = FALSE, obs = TRUE, group = NULL, verbose = 0) 
##     compute_PtE_edges: function () 
##     compute_resdist: function (full = FALSE, obs = TRUE, group = NULL, check_euclidean = FALSE, 
##     compute_resdist_mesh: function () 
##     compute_resdist_PtE: function (PtE, normalized = TRUE, include_vertices = FALSE, check_euclidean = FALSE, 
##     coordinates: function (PtE = NULL, XY = NULL, normalized = TRUE) 
##     drop_na: function (...) 
##     E: 1 3 3 6 4 7 9 11 13 14 15 16 18 19 20 21 23 25 27 29 31  ...
##     edge_lengths: 0.0363234139144278 0.01586106867077 0.027923568765887 0. ...
##     edges: metric_graph_edges
##     edgeweight_to_data: function (loc = NULL, mesh = FALSE, data_loc = FALSE, weight_col = NULL, 
##     fem_basis: function (PtE) 
##     filter: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     geo_dist: list
##     get_data: function (group = NULL, tibble = TRUE, drop_na = FALSE, drop_all_na = TRUE) 
##     get_degrees: function (which = "degree") 
##     get_edge_lengths: function (unit = NULL) 
##     get_edge_weights: function (data.frame = FALSE, tibble = TRUE) 
##     get_groups: function (get_cols = FALSE) 
##     get_initial_graph: function () 
##     get_locations: function () 
##     get_mesh_locations: function (bru = FALSE, loc = NULL, normalized = TRUE) 
##     get_PtE: function () 
##     get_vertices_incomp_dir: function () 
##     initialize: function (edges = NULL, V = NULL, E = NULL, vertex_unit = NULL, 
##     is_tree: function () 
##     Laplacian: NULL
##     mesh: list
##     mesh_A: function (PtE) 
##     mutate: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     nE: 6827
##     nV: 4017
##     observation_to_vertex: function (tolerance = 1e-15, mesh_warning = TRUE) 
##     plot: function (data = NULL, newdata = NULL, group = 1, plotly = FALSE, 
##     plot_connections: function () 
##     plot_function: function (data = NULL, newdata = NULL, group = 1, X = NULL, plotly = FALSE, 
##     plot_movie: function (X, plotly = TRUE, vertex_size = 5, vertex_color = "black", 
##     print: function () 
##     process_data: function (data = NULL, edge_number = "edge_number", distance_on_edge = "distance_on_edge", 
##     prune_vertices: function (check_weights = TRUE, verbose = FALSE) 
##     PtV: NULL
##     res_dist: NULL
##     select: function (..., .drop_na = FALSE, .drop_all_na = TRUE) 
##     set_edge_weights: function (weights = rep(1, self$nE), kirchhoff_weights = NULL) 
##     summarise: function (..., .include_graph_groups = FALSE, .groups = NULL, 
##     summary: function (messages = FALSE, compute_characteristics = TRUE, check_euclidean = TRUE, 
##     V: -122.41277 -122.41249 -122.40376 -122.40358 -122.40379 - ...
##     vertices: metric_graph_vertices
##     VtEfirst: function () 
##   Private:
##     A: function (group = NULL, obs_to_vert = FALSE, drop_na = FALSE, 
##     add_vertices: function (PtE, tolerance = 1e-10, verbose) 
##     addinfo: FALSE
##     clear_initial_info: function () 
##     compute_degrees: function () 
##     compute_laplacian_PtE: function (PtE, normalized = TRUE, verbose = verbose) 
##     compute_lengths: function (longlat, unit, crs, proj4string, which_longlat, vertex_unit, 
##     connected: TRUE
##     coordinates_multiple_snaps: function (XY, tolerance, verbose = verbose, crs, proj4string, 
##     create_update_vertices: function () 
##     crs: crs
##     data: metric_graph_data, list
##     edge_weights: tbl_df, tbl, data.frame
##     find_edge_edge_points: function (tol, verbose, crs, proj4string, longlat, fact, which_longlat) 
##     find_mesh_bc: function () 
##     get_edge_weights_internal: function (data.frame = FALSE) 
##     group_col: .group
##     initial_edges_added: NULL
##     initial_graph: metric_graph, R6
##     kirchhoff_weights: NULL
##     length_unit: km
##     line_to_vertex: function (tolerance = 0, longlat = FALSE, fact, verbose, crs, 
##     longlat: TRUE
##     merge_close_vertices: function (tolerance, fact) 
##     merge.all.deg2: function () 
##     mesh_merge_deg2: function () 
##     mesh_merge_outs: function () 
##     move_V_first: function () 
##     plot_2d: function (line_width = 0.1, marker_size = 1, vertex_color = "black", 
##     plot_3d: function (line_width = 1, marker_size = 1, vertex_color = "rgb(0,0,0)", 
##     proj4string: NULL
##     prune_warning: FALSE
##     pruned: FALSE
##     PtE_to_mesh: function (PtE) 
##     ref_edges: 1 1552 2 5 3133 4 6 395 7 526 8 6466 9 10 11 12 38 13 14 ...
##     remove_circles: function (threshold, verbose, longlat, unit, crs, proj4string, 
##     remove.first.deg2: function (res) 
##     set_first_weights: function (weights = rep(1, self$nE)) 
##     set_petrov_matrices: function () 
##     split_edge: function (Ei, t, tolerance = 0) 
##     temp_PtE: NULL
##     tolerance: list
##     transform: FALSE
##     vertex_unit: degrees
##     which_longlat: sf 
##   .. .. .. .. .. .. .. .. .. ..$ fem_mesh            :List of 5
##   .. .. .. .. .. .. .. .. .. .. ..$ c0:Formal class 'dgTMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ j       : int [1:7169] 0 1 2 3 4 5 6 7 8 9 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:7169] 0.0797 0.1564 0.1117 0.0493 0.0614 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g1:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:24879] 0 1 985 0 1 1700 5207 5364 6858 7041 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 3 10 16 20 23 27 36 44 50 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:24879] 101.1 -55.1 -46.1 -55.1 216.4 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g2:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:56007] 0 1 985 986 1700 4722 5207 5364 6240 6858 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 11 22 34 43 52 61 76 89 99 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:56007] 172097 -145986 -232979 119006 15770 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g3:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:96755] 0 1 230 984 985 986 1700 1701 2280 2455 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 17 35 57 76 91 103 126 150 166 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:96755] 3.94e+08 -3.74e+08 -2.65e+07 -9.14e+07 -1.47e+09 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. .. ..$ g4:Formal class 'dgCMatrix' [package "Matrix"] with 6 slots
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ i       : int [1:147901] 0 1 230 983 984 985 986 989 1700 1701 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ p       : int [1:7170] 0 28 52 89 122 151 171 209 249 274 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dim     : int [1:2] 7169 7169
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ Dimnames:List of 2
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. .. ..$ : NULL
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ x       : num [1:147901] 1.41e+12 -1.06e+12 -2.25e+11 1.91e+11 -1.41e+12 ...
##   .. .. .. .. .. .. .. .. .. .. .. .. ..@ factors : list()
##   .. .. .. .. .. .. .. .. .. ..$ parameterization    : chr "matern"
##   .. .. .. .. .. .. .. .. .. ..$ n.spde              : int 7169
##   .. .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "rspde_metric_graph" "inla_rspde" "inla.cgeneric"
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_inla_rspde" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ group    :List of 1
##   .. .. .. .. .. .. .. .. ..$ n: num 1
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_index" "bru_mapper" "list"
##   .. .. .. .. .. .. .. ..$ replicate:List of 4
##   .. .. .. .. .. .. .. .. ..$ levels        : chr [1:4] "1" "2" "3" "4"
##   .. .. .. .. .. .. .. .. ..$ factor_mapping: chr "full"
##   .. .. .. .. .. .. .. .. ..$ indexed       : logi TRUE
##   .. .. .. .. .. .. .. .. ..$ n             : int 4
##   .. .. .. .. .. .. .. .. ..- attr(*, "class")= chr [1:4] "bru_mapper_factor_index" "bru_mapper_factor" "bru_mapper" "list"
##   .. .. .. .. .. .. ..$ n_multi          :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 21507
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ n_inla_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : num 21507
##   .. .. .. .. .. .. .. ..$ group    : num 1
##   .. .. .. .. .. .. .. ..$ replicate: int 4
##   .. .. .. .. .. .. ..$ values_multi     :List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ values_inla_multi:List of 3
##   .. .. .. .. .. .. .. ..$ main     : int [1:21507] 1 2 3 4 5 6 7 8 9 10 ...
##   .. .. .. .. .. .. .. ..$ group    : int 1
##   .. .. .. .. .. .. .. ..$ replicate: int [1:4] 1 2 3 4
##   .. .. .. .. .. .. ..$ is_linear_multi  :List of 3
##   .. .. .. .. .. .. .. ..$ main     : logi TRUE
##   .. .. .. .. .. .. .. ..$ group    : logi TRUE
##   .. .. .. .. .. .. .. ..$ replicate: logi TRUE
##   .. .. .. .. .. .. ..$ n                : num 86028
##   .. .. .. .. .. .. ..$ n_inla           : num 86028
##   .. .. .. .. .. .. ..$ is_linear        : logi TRUE
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_multi" "bru_mapper" "list"
##   .. .. .. .. .. ..$ scale : list()
##   .. .. .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_scale" "bru_mapper" "list"
##   .. .. .. .. ..$          : Named logi [1:2] TRUE TRUE
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ is_linear: logi TRUE
##   .. .. .. .. ..$ n_multi  : Named int [1:2] 86028 NA
##   .. .. .. .. .. ..- attr(*, "names")= chr [1:2] "mapper" "scale"
##   .. .. .. .. ..$ n        : num 86028
##   .. .. .. .. ..$ names    : chr [1:2] "mapper" "scale"
##   .. .. .. .. ..- attr(*, "class")= chr [1:3] "bru_mapper_pipe" "bru_mapper" "list"
##   .. .. .. ..- attr(*, "class")= chr [1:2] "component" "list"
##   .. .. ..- attr(*, "class")= chr [1:2] "component_list" "list"
##   .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..$ formula:Class 'formula'  language BRU_response ~ f(Intercept, model = BRU_Intercept_main_model, ngroup = 1,      nrep = 1, values = BRU_Intercept_v| __truncated__ ...
##   .. .. .. ..- attr(*, ".Environment")=<environment: R_GlobalEnv> 
##   .. ..- attr(*, "class")= chr [1:2] "bru_model" "list"
##   ..$ lhoods         :List of 1
##   .. ..$ :List of 17
##   .. .. ..$ family        : chr "T"
##   .. .. ..$ formula       :Class 'formula'  language speed ~ .
##   .. .. .. .. ..- attr(*, ".Environment")=<environment: 0x6397ada18210> 
##   .. .. ..$ response_data :List of 4
##   .. .. .. ..$ BRU_response: num [1:14535] 0 12.9 24.1 32.2 0 ...
##   .. .. .. ..$ BRU_E       : num 1
##   .. .. .. ..$ BRU_Ntrials : num 1
##   .. .. .. ..$ BRU_scale   : num 1
##   .. .. ..$ data          :List of 8
##   .. .. .. ..$ speed            : num [1:14535] 0 12.9 24.1 32.2 0 ...
##   .. .. .. ..$ SpeedLimit       : num [1:14535] -0.101 -0.617 -0.617 -0.617 -0.927 ...
##   .. .. .. ..$ .coord_x         : num [1:14535] -122 -122 -122 -122 -122 ...
##   .. .. .. ..$ .coord_y         : num [1:14535] 37.8 37.8 37.8 37.8 37.8 ...
##   .. .. .. ..$ .edge_number     : num [1:14535] 1 4 6 6 9 14 14 14 18 20 ...
##   .. .. .. ..$ .distance_on_edge: num [1:14535] 0.437 0.144 0.252 0.658 0.601 ...
##   .. .. .. ..$ .group           : chr [1:14535] "1" "1" "1" "1" ...
##   .. .. .. ..$ loc              : num [1:14535, 1:2] 1 4 6 6 9 14 14 14 18 20 ...
##   .. .. .. ..- attr(*, "class")= chr [1:2] "metric_graph_data" "list"
##   .. .. ..$ E             : num 1
##   .. .. ..$ Ntrials       : num 1
##   .. .. ..$ weights       : num 1
##   .. .. ..$ scale         : num 1
##   .. .. ..$ samplers      : NULL
##   .. .. ..$ linear        : logi TRUE
##   .. .. ..$ expr          : NULL
##   .. .. ..$ response      : chr "BRU_response"
##   .. .. ..$ inla.family   : chr "T"
##   .. .. ..$ domain        : NULL
##   .. .. ..$ used          :List of 2
##   .. .. .. ..$ effect: chr [1:3] "Intercept" "SpeedLimit" "field"
##   .. .. .. ..$ latent: chr(0) 
##   .. .. .. ..- attr(*, "class")= chr "bru_used"
##   .. .. ..$ allow_combine : logi TRUE
##   .. .. ..$ control.family: NULL
##   .. .. ..- attr(*, "class")= chr [1:2] "bru_like" "list"
##   .. ..- attr(*, "class")= chr [1:2] "bru_like_list" "list"
##   ..$ options        :List of 14
##   .. ..$ bru_verbose      : num 0
##   .. ..$ bru_verbose_store: num Inf
##   .. ..$ bru_max_iter     : num 1
##   .. ..$ bru_run          : logi TRUE
##   .. ..$ bru_int_args     :List of 3
##   .. .. ..$ method: chr "stable"
##   .. .. ..$ nsub1 : num 30
##   .. .. ..$ nsub2 : num 9
##   .. ..$ bru_method       :List of 6
##   .. .. ..$ taylor         : chr "pandemic"
##   .. .. ..$ search         : chr "all"
##   .. .. ..$ factor         : num 1.62
##   .. .. ..$ rel_tol        : num 0.1
##   .. .. ..$ max_step       : num 2
##   .. .. ..$ line_opt_method: chr "onestep"
##   .. ..$ bru_compress_cp  : logi TRUE
##   .. ..$ bru_debug        : logi FALSE
##   .. ..$ E                : num 1
##   .. ..$ Ntrials          : num 1
##   .. ..$ control.compute  :List of 3
##   .. .. ..$ config: logi TRUE
##   .. .. ..$ dic   : logi TRUE
##   .. .. ..$ waic  : logi TRUE
##   .. ..$ control.inla     :List of 1
##   .. .. ..$ int.strategy: chr "auto"
##   .. ..$ control.fixed    :List of 1
##   .. .. ..$ expand.factor.strategy: chr "inla"
##   .. ..$ verbose          : logi FALSE
##   .. ..- attr(*, "class")= chr [1:2] "bru_options" "list"
##   ..$ inlabru_version: Named chr "2.10.1.9004"
##   .. ..- attr(*, "names")= chr "version"
##   ..$ INLA_version   : Named chr "24.04.25-1"
##   .. ..- attr(*, "names")= chr "version"
##   ..- attr(*, "class")= chr [1:2] "bru_info" "list"
##  - attr(*, "class")= chr [1:3] "bru" "iinla" "inla"
nonstat.time.fin <- Sys.time()
print(nonstat.time.fin - nonstat.time.ini)
## Time difference of 16.21476 mins
summary(rspde_fit_nonstat)
## inlabru version: 2.10.1.9004
## INLA version: 24.04.25-1
## Components:
## Intercept: main = linear(1), group = exchangeable(1L), replicate = iid(1L)
## SpeedLimit: main = linear(SpeedLimit), group = exchangeable(1L), replicate = iid(1L)
## field: main = cgeneric(loc), group = exchangeable(1L), replicate = iid(data_rspde_bru_nonstat[["repl"]])
## Likelihoods:
##   Family: 'T'
##     Data class: 'metric_graph_data', 'list'
##     Predictor: speed ~ .
## Time used:
##     Pre = 0.292, Running = 885, Post = 8.47, Total = 894 
## Fixed effects:
##              mean    sd 0.025quant 0.5quant 0.975quant   mode kld
## Intercept  17.080 0.097     16.889   17.080     17.270 17.080   0
## SpeedLimit  3.109 0.143      2.829    3.109      3.388  3.109   0
## 
## Random effects:
##   Name     Model
##     field CGeneric
## 
## Model hyperparameters:
##                                            mean   sd 0.025quant 0.5quant
## precision for the student-t observations  0.002 0.00      0.002    0.002
## degrees of freedom for student-t          2.135 0.00      2.135    2.135
## Theta1 for field                          2.861 0.00      2.861    2.861
## Theta2 for field                         -1.000 0.00     -1.001   -1.000
## Theta3 for field                          0.346 0.00      0.346    0.346
## Theta4 for field                          0.431 0.00      0.430    0.431
## Theta5 for field                          0.123 0.00      0.123    0.123
##                                          0.975quant   mode
## precision for the student-t observations      0.002  0.002
## degrees of freedom for student-t              2.135  2.135
## Theta1 for field                              2.862  2.862
## Theta2 for field                             -1.000 -1.000
## Theta3 for field                              0.346  0.346
## Theta4 for field                              0.431  0.431
## Theta5 for field                              0.124  0.123
## 
## Deviance Information Criterion (DIC) ...............: 115976.79
## Deviance Information Criterion (DIC, saturated) ....: -10123.87
## Effective number of parameters .....................: 587.84
## 
## Watanabe-Akaike information criterion (WAIC) ...: 116662.18
## Effective number of parameters .................: 1256.96
## 
## Marginal log-Likelihood:  -108633.18 
##  is computed 
## Posterior summaries for the linear predictor and the fitted values are computed
## (Posterior marginals needs also 'control.compute=list(return.marginals.predictor=TRUE)')
summary(rspde.result(rspde_fit_nonstat, "field", rspde_model_nonstat))
##                    mean          sd 0.025quant  0.5quant 0.975quant      mode
## Theta1.matern  2.861430 0.000352260   2.860650  2.861460   2.862020  2.861620
## Theta2.matern -1.000120 0.000279877  -1.000670 -1.000120  -0.999562 -1.000130
## Theta3.matern  0.346030 0.000210224   0.345609  0.346032   0.346437  0.346041
## Theta4.matern  0.430866 0.000273158   0.430259  0.430889   0.431317  0.431010
## nu             0.796185 0.000108117   0.795962  0.796238   0.796364  0.796230

1.3 Crossvalidation 1

#load(here("Models_output/distmatrixfixed.RData"))

points = data %>%
  as.data.frame() %>%
  st_as_sf(coords = c(".coord_x", ".coord_y"), crs = 4326) %>%
  mutate(., index = 1:nrow(.)) %>% 
  st_drop_geometry() %>%
  dplyr:::select(speed, .group, index) %>%
  mutate(.group = as.numeric(.group)) %>%
  group_by(.group) %>%
  mutate(indexingroup = seq_len(n())) %>%
  ungroup()

distance = seq(from = 0, to = 400, by = 20)/1000

The code of chunk below was executed only one time.


{r}
load(here("Models_output/distmatrixfixed30_04_2024.RData"))

points = data %>%
  as.data.frame() %>%
  st_as_sf(coords = c(".coord_x", ".coord_y"), crs = 4326) %>%
  mutate(., index = 1:nrow(.)) %>% 
  st_drop_geometry() %>%
  dplyr:::select(speed, .group, index) %>%
  mutate(.group = as.numeric(.group)) %>%
  group_by(.group) %>%
  mutate(indexingroup = seq_len(n())) %>%
  ungroup()

distance = seq(from = 0, to = 400, by = 20)/1000

GROUPS <- list()
for (j in 1:length(distance)) {
  print(j)
  GROUPS[[j]] = list()
  for (i in 1:nrow(points)) {
    rowi = points[i, ]
    GROUPS[[j]][[i]] <- which(as.vector(distmatrixlist[[rowi$.group]][rowi$indexingroup,]) <= distance[j])
  }
}
save(GROUPS, file = here("Models_output/GROUPS_for_window_case30_04_2024.RData"))

The code of chunk above was executed only one time.


load(here("Models_output/GROUPS_for_window_case30_04_2024.RData"))
mse.stat <- mse.nonstat <- ls.stat <- ls.nonstat <- rep(0,length(distance))
# cross-validation for-loop
for (j in 1:length(distance)) {
  print(j)
  # cross-validation of the stationary model
  cv.stat <- inla.group.cv(rspde_fit_stat, groups = GROUPS[[j]])
  # cross-validation of the nonstationary model
  cv.nonstat <- inla.group.cv(rspde_fit_nonstat, groups = GROUPS[[j]])
  # obtain MSE and LS
  mse.stat[j] <- mean((cv.stat$mean - points$speed)^2)
  mse.nonstat[j] <- mean((cv.nonstat$mean - points$speed)^2)
  ls.stat[j] <- mean(log(cv.stat$cv))
  ls.nonstat[j] <- mean(log(cv.nonstat$cv))
}
## [1] 1
## [1] 2
## [1] 3
## [1] 4
## [1] 5
## [1] 6
## [1] 7
## [1] 8
## [1] 9
## [1] 10
## [1] 11
## [1] 12
## [1] 13
## [1] 14
## [1] 15
## [1] 16
## [1] 17
## [1] 18
## [1] 19
## [1] 20
## [1] 21
## plot results
par(mfrow = c(2,2), family = "Palatino")

# Plot MSE
plot(distance, mse.stat, main = "MSE", ylim = c(min(mse.nonstat, mse.stat), max(mse.nonstat, mse.stat)),
     type = "l", ylab = "MSE", xlab = "distance in m", col = "black")
## Error in plot.window(...): need finite 'ylim' values
lines(distance, mse.nonstat, col = "blue")
legend("bottomright", legend = c("Stationary", "Non-stationary"), col = c("black", "blue"), lty = 1)

## plot results
par(mfrow = c(2,2), family = "Palatino")
# Plot log-score
plot(distance, -ls.stat, main = "log-score", ylim = c(min(-ls.nonstat, -ls.stat), max(-ls.nonstat, -ls.stat)),
     type = "l", ylab = "log-score", xlab = "distance in m", col = "black")
## Error in plot.window(...): need finite 'ylim' values
lines(distance, -ls.nonstat, col = "blue")
legend("bottomright", legend = c("Stationary", "Non-stationary"), col = c("black", "blue"), lty = 1)

save.image(here(paste0("Models_output/", rmarkdown::metadata$title, ".RData")))